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COBSACCECV = ACCEPT Conversion routines 8.12 -1984 23:49: AX-11 Bliss-32 V 
eee Pa a Pt iat Poot et 
ZTITL Meſ⸗. - ACCEPT Conversion routines® 
MODUL 
IDENT = '1-001' , File: COBACCECV.832 EDIT:LGB81001 
= 
! BEGIN 
} i eeeeeeeeeeerreeerretetteneereererererereeerreeeteeeeeeeeeeeeeeeereneeeeneete 
‘@ * 
1 !* COPYRIGHT to) 1978, 1980, 1982, 1984 BY * 
1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
— ALL RIGHTS RESERVED. : 
ig 1 ie THIS SOFTWARE IS PUAN SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
14 1 !* ONLY IN ACCORDANCE WITH THE TERNS OF renee LICENSE AND WITH THE * 
18 1 !e inch yelon OF THE above cOPYR CHT NOTICE. € SOFTWARE OR ANY OTHER * 
8 1 !@ COPIES THEREOF MAY NOT BE PROVIDED OR BTHERUTSE MADE AVAILABLE TO ANY * 
1 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
H+ : is TRANSFERRED. ° 
60 0 1 is 3 289 IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 1 !# SH m NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8 — CORPORA PION. . 
0024 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
85 é : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. — 
i 
00 8 ! isenneeeeeeceeseeenneecencenesssscnncenneressnenennenessensnnannaeeeestessns 
029 1 
0030 1 
0031 1 !+44 
83 FACILITY: COBOL SUPPORT 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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: 467 1! 

: ? : 1 PROLOGUE FILE 

; § 1 REQUIRE ‘RTLIN:COBPROLOG’ ; ! Switches, Psects, Include 

3 4 1 ' files 

g ¢ 1 1! 

3 1 1 ! LINKAGES: 

3 4 1 § i! 

$ 5 4 1 LINKAGE 

3 $ 1571 1 J$8_678 = JSB 

3 1572 1 (REGISTER = 6, -* 7 — = 8): 

; 8 1573 1 NOPRE SERVE (2, 3,4, 5, 6, 7, 8) 

: 38 i NOTUSED (9, 16, 11). 

3; (61 1378 JSB_6789 = JSB 

3 6¢ 1577 1 (REGISTER = g. REGISTER 27 X = 8, REGISTER = 9): 
se 1 28 1 NOPRESERVE (2, 3, 4, 5, 6. ?, 8, 9) 

; 64 1379 NOTUSED (10, 11): 

3 68 138) } : TABLE OF CONTENTS: 

: 68 1388 1 FORWARD ROUTINE 

3 9 1584 1 COBSSACC_CONVERT, ! Conversion routine 

; 0 1585 1 COBSSNUMERIC_CONV, ' Convert to numeric text strings 
. 1386 1 COBSSCOMP_CORV, ! Convert to Word, Longword, 
3 3 3 1 ' Quadword and Packed strings 
. 1588 1 COBSSFLOAT_CONV, ! Convert to Floating and Double 
3; 6 1589 1 ! floating Point strings 

3 BV— 1590 1 COBSSSTRIP_BLANKS_SIGN, ! Strip blanks and sign from 
ae. 1591 1 ! input numeric ae 

3 7 1238 4 COBSSZERO_FILL : NOVALUE, ! Initialize STRING_DEST with 
s 7 15935 1 ! zeroes 

; 7 1594 1 COBSSVERIFY_FL_RANGE, ! Check that input for Floating 
3 9 1595 1 ! Point data items is within range 
F 1 1236 : COBSSSCAN_INPUT ; ! Scan input data 

3 : 1598 1! 

3 : 33 EQUATED SYMBOLS 

; 1601 1 LITERAL ) 

F 180 1 V_DEC_PT = 64 ; ' Bit tise for ‘DECIMAL POINT 
3 89 168 } ' 1S COMMA’ 

; 30 16 5 i EXTERNAL REFERENCES: 

HY 3 198 } EXTERNAL ROUTINE 

; 94 1809 1 coascyT iL Re: JSB_67 ' Convert CIT to Long 

; | 9S 1610 1 COBSCVTIP"R9: JSB~6789, i Convert CIT to packed 

3 8* 1611 1 COBSCVTIQ_R8: JSB_678, ! Convert CIT to quad 

; 1o1¢ 1 COBSCVTIW_R8: JSB_678, ' Convert CIT to word 

; 98 1615 1 COBSCVTTI_R8: JSB 678, ' Convert text to CIT 

: 99 1614 1 LIBSSTOP = NOVALUE, ! signals fatal error 

3% 1615 1 STRSGET1_DXx ' Allocate a strin 

> 101 1616 1 STRSDUPL” CHAR, i Duplicate character n times 
3 108 1617 1 STRSFREET_DX, } Deallocate a string 

3: 10 1618 1 STRSCOPY_R, ! Copy a string by ref 
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4-Sep-1 COBRTL.SRC cOBALCECy B82; 31 (2 f 
: 1046 16 1 COBSSFREE_STRINGS, ! Free local strings 
; 105 16 1 OTSSCVT_T_ 30 ' Convert Text to Floating point 
; ; + 1 : OrsscyT= T=D ! Convert Text to Double Fl point 
3 16 : 1 EXTERNAL LITERAL 
3; 4% 1624 1 COBS_INVARG ; ! Invalid Argument (s) 
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83 COBSSACC. CONVERT = Conversion — F2si0sss — Eebanre Snedcopavcéey 69251 % 03), 

1 ZSBITL *COBSSACC_CONVERT = Conversion’ 

1 GLOBAL ROUTINE COBSSACC_CONVERT (STRING_DEST : REF SSTRSDESCRIPTOR 

1 ' Final destination for input chars 

1 FLAGS, ! Enhancement flag 

1 DEFAULT : REF SSTRSDESCRIPTOR 

1 ' Input detayle value 

; PUT_HERE : REF Ts . BYTEJ, 

1 


is] if D 
isl ifs 


FAULT was used 


CHARS Pus’ ! # of ‘DEA characters 
° e 
gn should be included 


YES_DEFAUL 
YES-SIGN 


oo UEWN—OOONGuw wwe 


; 11 1635 1 | 

11 1 1 

. | 16 1 

3 196 16 1 

J ove 16 1 

Fs — 16 1 

» 16 1 

; 118 16 1 

; 119 16 1 | 

; 120 16 1 | 

3 (Vel 16 1 

3 3 ¢ 16 1 

* 16 1 !e4 

; ; ¢ 1 ! : FUNCTIONAL DESCRIPTION: 

; 126 1640 1! Convert TEXT sept string to specified VAX COBOL data type. 

; 127 1641 1! This routine selects the appropriate routine to convert the specified 

; 128 1966 1! data type. i 
: 129 1645 1! i 
. 3 1644 1 ! FORMAL PARAMETERS: i 
F 13) 1645 1! i 
F. 1066 7? ‘ 
3 \3? 8 STRING_DEST.mt.ds Address of descriptor to receive the read input. | 
3 136 196? : FLAGS. rlu.v Screen enhancement flag; i 
; : i 
3 3 1651 1! DEFAULT.rt.dx Default source moved to destination descriptor ‘ 
; 13 1636 ; } (STRING_DEST) in the event of null input. i 
3 129 1628 : PUT_HERE.rt.dx Buffer to hold input characters. i 
3 146 1926 } CHARS_READ.rlu.v Number of characters accepted as input. ‘ 
3 | 1938 ‘ : YES_DEFAULT.rlu.v Flag = 1 if DEFAULT used because of null input. 3 
: 146 1660 1! YES_SIGN.rlu.v Flag = 1 if sign should be included in COMP or COMP3 ‘ 
: 147 1661 1! data type. i 
3; «6148 1096 1! F 
3 «6149 1663 1 =! IMPLICIT INPUTS: i 
; 150 1664 1! F 
3 31 1665 1! NONE i 
3 13¢ 1666 1! i 
s ¥ 1667 1 ! IMPLICIT OUTPUTS: ‘ 
3 6154 1908 7! 
gs 39 1 3: NONE 
3 138 1670 1! 
31 1671 1 ! ROUTINE VALUE: i 
: 158 167g 1 | } 
3; 159 1o75 7 : 1 = Conversion Success i 
: 160 1674 1! 0 - Conversion Failure ; 
: 161 1675 1! 
3 166 1676 1 ! SIDE EFFECTS: 
s 16 1677 1! i 
3 «6164 1678 1! Signals COBS_INVARG if the syntax of the number is wrong, | 
3; 165 1679 1 !-- | | 
; 196 1680 1 | 
: 16 1681 2 BEGIN 


11 | 
EPT Conversion routines 3, “19 249: AXx-11 = 4. 
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LOCAL 
: INITIAL (0) ' = 1, Conversion error 
PUT_HERE_BUF : REF VECTOR (1100, BYTE, Temp for special case 
i 


Conversion check 
CONV_OK : INITIAL (0) ; Return Status 
14 


i This validi 
i. DOUBLE FLOA 
if ¢ “STRING _D 
STRING_D 
eSTRING_D 


PO 


on 
om 
o 


y 
o< 
2s 
< 
m> 
wo 
ao 


Mew 


oes not apply to TEXT, FLOATING or 


e 
data types. 
_DTYPE] NEQ 
“DTYPE) N 
oT 


eck 
POI 
ST COSC 
ST LDSC 
ST COSC YPE 


Ooo 
mmm ie 


wr 


oO 
TT ~T~) 
NNN 
aA 
PAA 
AA* 
‘c'c'o 
43444 

—- <<< 
vuvUv 
sewn 
> 
— 
ẽ 


BEGIN + Begin special case 
i Looking for two special —_ conversion errors not caught 
! in other conversion routin 

1 Check for invalid value — d '0000-1234' 

! ('9-." found in —ãAã —E 


| 
| 

* | 

IF .YES_DEFAULT ' Use local buffer for 

TH onvenience 

PUT_HERE_BUF = .DEFAULT CDSCSA_ —— 

ELSE | 
| 
| 
| 
| 
| 
| 


PUT_HERE_BUF = .PUT_HERE CDSCSA_POINTER] ; 


SSRLEGFATLSSRLERE 


Vο REAR EARS REESE EEE ES PUN Orrononorororororonorn 
0 
— 
a 


INCR X FROM 0 TO .CHARS_READ - 1 DO 
BEGIN 


et at ts a ss 2 Ss YS SS Ss SS a SS Ss YS — SS SS — — ss YS —— 


SELF ——— 


1 
1 '¢ 
; } Work through characters one at a time. 
1 SELECTONE .PUT_HERE_BUF [.XJ OF 
: SET 
: Czc'O" TO 2£C'9") : rea? 
. ! Lega 
cxc’ "3 : ° 
0; ! Legal 


C2c'=", 2C'#"] : 
1X NEQ 0 AND .X NEQ .CHARS_READ - 1 


'¢ 
i Look ing for 0000-1234 case - a sign in middle 
! of digits. Sign ould be, first or last 


A character. Note: bbbb- is —— 


NOUSWN—O 


IF «¢ —N HERE _BUF -] GeQ 36. AND 

THERE- 3 rE Hat ) AND 

( THERE GEQ a9 AND 
“PUTT HERE BUF Ka] LEQ Hag ) 


— — — —— — — —— — — — — — — — —— — — — — — —— — — — — —— — — — — — — — — — — a a — a eee OD 
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1°81 EOBSSACE CONVERS - Conversion 12-808-138e 93:79:98 COBRTL SREICOBALCE CY B82: 1 
3 5 1739 4 END ; 
; — io? 4 
; 1741 & CxC".*, ses 2 t 
3 : 174 BESIN 
3 174 IF .X NEQ .CHARS_READ = 1 
3 38 THEN 
i $3) 156g Pineaton Sor i ti 
r ' Loo or .-9 case - a sign separating a 
} ¢ 1709 : decimal oint gnd digit. * and 5. ore 
3 ¢ 1248 ; acceptable. (9=. caught by COBSSNUMERIC_CONV) 
; \f 0 IF .PUT_HERE_BUF [.X+1] EQL ZC'=" OR 
3 1751 -PUT_HERE_BUF L.X*1J EQL 2C° ° 
3 17 ¢ iHEN 
3 3 6 EGIN 
: 240 1 8 6 ERROR = 1; 
> 241 1755 3 EXITL ; 
; 24 1726 ND ; 
; 246 1757 4 END ; 
: 266 1758 4 
3 45 1759 4 C OTHERWISE J: 
: 246 1760 4 0; ' Let conversion routines 
3 26 1761 4 ! handle other errors 
; 248 1796 4 TES ; 
3; 249 176 END ; 
3 50 1764 END ; ! End special case 
: 251 1765 
3 26 1708 IF .ERROR 
3; @ 176 TH 
> 254 1768 CONV_OK = 0 ! Return failure status 
3 255 179% ELSE 
3; @ 1770 '¢ 
; 25 1771 ' Continue with rest of conversion check. Call appropriate 
3 28 1776 H routine (determined by data type). 
: 60 1774 CASE .STRING_DEST CDSCS$B_DTYPE] FROM DSCSK_DTYPE_Wu TO 
3; 261 1775 BSCSK_DTYPE_P OF 
3 6 1776 SET 
:; 26 177 
; 264 1778 CDSCSK_DTYPE_NU, ! Numeric string 
; 265 1779 DSCSK-DTYPE_NL, DSCSK_DTYPE_NR 
; 66 1780 DSCSK-DTYPE-NLO, DSCSR_DTYPE_NRO} : 
:; 26 1781 
: $8 17 § BEGIN 
3 $ 17 & CONV_OK = COBSSNUMERIC_CONV (( IF .YES_DEFAULT 
3 9 17 4 THEN .DEFAULT 
3: 271 1785 ELSE .PUT_HERE ) 
; 2 17 «STRING_DEST, .CHARS_READ; .FLAGS ) ; 
3 i? 4 END ; 
: 275 17 CDSC$K_DTYPE_W, DSCSK_DTYPE_wu, ' word 
3 7 17 DSCSK_DTYPE_L, DSCSK_DTYPE_LU, ' Lonqword 
3; 27 1791 DSCSK“DTYPE-G, DSCSK-DTYPE_QU, i Quadword 
i 3 1798 DSCSK-DTYPE-P4 : i Packed Decimal 
; 280 1794 BEGIN 
: 281 1795 CONV_OK = COBSSCOMP_CONV ( .STRING_DEST, 


as 


HG01 TY —EGRSSAEECLOnvER © Conversion” Urine’ — #Est8:08  YSIT OLENA Ata "So 


: 1 “FLAGS, DEFAULT, .PUT_HERE, 
; 1 § FREAD ~ YES_DEFAOL gr 
; 1 Yess s ; 

: i END ; 

; 1 CDSCSK_DTYPE_F, DSCSK_DTYPE_D) : ! Floating and Double 
; 1 i Floating Point 

3 ' BEGIN 

; 1805 i ince DEFAULT is Read-only, copy it to PUT 53. if 
3 1 ! t was used, just in case it is necessary fo 

: ' i. @ a DOT to override a COMMA in routine COB SFLOAT. LONV. 
; 1 ; 

3 ; 9 - YES_DEF AULT 

; 1 i CHSMOVE ( .CHARS_READ, .DEFAULT CDSCSA POINTER}. 
3 1 13 -PUT_HERE CDSCSA_POINTER) )'; 
: 1815 CONV_OK = COBSSFLOAT_CONV ( - STRING DEST, .FLAGS, 

; 1 1g T_HERE, .CHARS_READ ) ; 
3 END ; 

3 13 CDSCSK_DTYPE_T) : ! Text 

; 1 1 14 

is ¢ ! Copy ACCEPTed data to STRING DEST. If more chars 
; 18 i are ACCEPTed than STRING rest DSC$W_LENGTH) can 

3 10 1824 ' AF ety accept anty the Teftmost characters and 

3 311 1825 ! ignore the extra characters. 

3 1 4 $ Use STRSCOPY because it BLANK fills. 

: 314 1828 

: 315 1829 BEGIN 

: 1g 1830 LOCAL 

3 ; ; 1 COPY_NUM ; 

; 19 18 § IF CHARS READ LSS .STRING_DESTCDSC$W_LENGTH) 

; 321 1835 EL SEO =NUM = -CHARS_READ 

; § 1 COPY_NUM = .STRING_DESTCDSCS$W_LENGTH) ; 

: 325 1 5 STRSCOPY_R ( “STRING DEST. COPY, NUM, 

: $ 1840 4 IF “YES DEFA AULT 

; 1841 4 wn’ DEFAULY DSCSA PO POINTER) 

; 328 1 3 eLse ~PUT_HERE CDSCSA PPOINTER] »; 

; 329 1 CONV_OK = 1; no heed to conv TEXT 
is at, 

; ¢ 1 3 CINRANGE, OUTRANGE) : 

; 4 i 3 LIBSSTOP ( COBS_INVARG ) ; 

: 185 TES ; 

: 1 29 

: 1852 RETURN .CONV_OK ; 
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11 PUSHL R 
0000v CF oF 118 CALL a COBSSCOMP_CONV 
F 18 «AC 11F 218 BLBC YES_DEFAULT, 22$ 
1 o¢ AC 1 MOVL DEFAULT, R1 
0 10 «a 1 ROVE PUT_HERE, RO 
04 80 04 81 14 AC 1 MOVC3 CHARS READ” @4(R1), a4(RO) 
E 10 AC 132 22$: mova PUT AERE. =(SP) 
08 A 1 PUSHL FLAGS 
1 PUSHL R 
0000v cf 1 CALLS #4, COBSSFLOAT_CONV 
7 9 140 238 MOVL R v 
143 24$ RB 3 
146 «AC 66 10 145 25$ CMPZV #0, #16, (R6), CHARS_READ 
6 148 BLEQ 
6E 146 1 14D MOVL HARS_READ, COPY_NUM 
0 1 } BRB $ 
6E 66 1 368: MOVZWL (R6) 
6 18 «AC 156 27$:  BLBC ES, — 28$ 
0 oc AC 15A MOVL 
04 136 BRB * 
50 10 A 1 38s MOVL § PUT_HERE, RO 
06 =A 10164 298 PUSHL  4(RO) 
06 A 167 PUSHAB COPY_NUM 
5 16A PUSHL Re 
000000006 9 16 CALLS ; STRSCOPY. R 
1 1 MOVL #1. CONV_O 
50 7 17% 30$:  MOVL CONV_OK, “RO 
1 RET 


: Routine Size: 378 bytes, Routine Base: _COBSCODE + 0000 
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CV = ACCEPT Conv 
ERIC_CONV = Conv 
ZSBTTL "COBS é 
ROUTINE COBSSNUMERIC-CONV ( 
ARG_DESC 
STRING DEST 
CHARS_READ, 
FLAGS”) = 
144 


FUNCTIONAL DESCRIPTION: 


ersion routines 
ert to numeric string 


SNUMERIC_CONV = Convert to numeric string’ 


REE BLock FB, BYTE. 


13 
1b-5e - 249: AX-11 Bliss-32 V4.0-74 
12-808=] 382 13:79:99 COBRTL.SRCJCOBACCECV.852;1 
can a number and divide it up 
he number to scan 
! Final resting place of input 
' Number of characters read 
! Needed for DECIMAL POINT IS COMMA 


i Convert a TEXT input string to the appropriate VAX COBOL Text 

4 —*4 “ee type. Pull off gec taal goin. ull off sign then 

4 lace it in the correct position for internal representation. 

: © nothing about errors in this routine, return control to COBSACC_SCR 

via COBSSACC_CONVERT. 

; FORMAL PARAMETERS: 

ARG_DESC.rt.dx The number to parse 

; STRING_DEST.mt.ds Address of descriptor to receive the read input. 

; CHARS_READ.rlu.v Number of characters accepted as input. 

; FLAGS.rlu.v Screen enhancement flag; 

IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

i 1 = Conversion Success 

: 0 = Conversion Failure 

SIDE EFFECTS: 

Signals COBS_INVARG if the syntax of the number is wrong, 

BEGIN 
LOCAL 

SIGN_VAL : BYTE, ! Holds + or = sign 
BUF _BESC : BLOCK (8, BYTE) VOLATILE, ! Temporary buffer 
SIGR_SEEN : INITIAL (0), i 1 = we have seen a + or - 
DIGIT_SEEN =: INITIAL (0), ! 1 = we have seen at least one digit 
DOT SEEN : INITIAL (0), ! 1 = we have seen a decimal petat 
BLANKS SEEN : INITIAL (0), ! 1 = we have seen trailing blanks 
ZERO_SEEN : INITIAL (0), ' 1 = zero seen 
PUTTER : IN tie (0) ' Counts position in the output buffer 
BUF : REF VECTOR (1 0 . Byte). i Addresses result 
ARG : REF VECTOR (1100, BYTEJ, ! Addresses source 
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lis 0-74 
onvert to numeric string COBRTL.SRCJCOBACCECV.852;1 
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38 


onversion routines 15-ep-1964 73:48:06 AX-11 8 


source 

its in ane DESC 
its to Left of dec pt 
its to right of dec pt 
' Counter of leading geroes 

' Correct number of digits allowed 

! to left of decimal point 


e 
; 
i Number of dig 
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BIND 
ZERO = UPLIT (°0"); 


4 
Enable a handler to free the local string in case of an error. 


ENABLE 
COBSSFREE_STRINGS (BUF _DESC); 


14 
! Allocate enough space to hold the digits. It is convenient to 
! allocate before scanning, so we may allocate a Little too much, 
: but the space will be freed before we return. 


7 
DESC CDSCSW_LENGTH) = 0; 
D C$k_DTYPE_NU; 


WN (OO OODNANE WN“ OOONOULS UM 


LLL LL LL EL LcocovcoooC COO OOOO 0000O0 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 BUF _ 

1935 BUF _DESC ([DSCSB_DTYPE] = DS 

1 BUF _DESC CDSCS$B_CLASS) = DSCSK_CLASS_D; 

1 BUF _DESC CDSCSA_POINTER]) = 0; 

1938 ARG-LEN = .ARG DESC COSC$W_LENGTH): 

} H * STRSGET1_DX (ZREF (. ARG_LER + 20), BUF_DESC); 
i 1 Set pointers. 

1 § ; BUF = .BUF_DESC PosceA Ponte: 

1944 ARG = .ARG_DESC [DSCSA_POINTER); 

: 5 SIGN_VAL = 2C‘+'; 

1947 $1 

: 3 : Scan the input number, put result in BUF. 

1950 2. 

1951 IF NOT ( COBSSSCAN_INPUT ( .ARG_DESC, .CHARS_READ, .FLAGS, BUF _DESC 
193¢ LEFT_DEC, NUM_DIGITS, SIGN VAL, PUTTER, LEADING ZEROES, SIGN_SEEN, 
195 DIGIT_SEEN, DOT_SEEN, ZERO_SEEN, BLANRS_SEEN ) ) 
1985 THEN TURN 0 

1388 3 

1328 ! Now ensure that a number of the form 1.0000 has the trailing 
1933 : zeroes stripped off. 

1961 IF .DOT_SEEN 

1366 THEN ~ 

18 wen 

1302 3 

1969 X = PUTTER - 1; 

1968 IF .X NEQ O 
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Throw out trailing 
! zeroes after dec pt. 
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cr 
wm 
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ee 


Get here if all gigits 
after decimal poin 

are zeroes, and zeroes 
are the only digits in 
the string (eg. .0000) 


PG wants an Tllegal string returned in its original state, 
it was pecessary to be more selective about where and when to 


call COBSSZERO_FILL. 


'¢ 
! If there are no digits, or only leading zeros, take the number to 
! be zero. Don't be too gullible, however. 


IF ( NOT .DIGIT_SEEN) 
THEN 
BEGIN 


IF (.SIGN_SEEN OR .DOT_SEEN OR .BLANKS_SEEN) AND (.ZERO_SEEN EQL 0) 
THEN RETURN 0 ; 


14 
Fill STRING_DEST with zeroes 
COBSSZERO_FILL ( .STRING_DEST ) ; 
RETURN 1 ; 

END 


t 

! Validate size of entered data, left and right of decimal point. 

! If everything is OK, copy the input string to STRING_DEST with 

! the sign set 3 correctly. 

! Return if DEFAULT is being converted (there will never be a decimal point 
: in the DEFAULT parameter) 


+ ! Pointer where result wili go in destination 


_IN{STRING , i Number of digits in destination string 


NOTE: cont Je COBSSZERO_FILL was originally done here, however because 
} 
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1 
PT Conversion routines 18-5 
- Convert to numeric string 14S 


DEST LENGTH 


Boas ination length 


3 
ep-19b6 2:10:08 — ECdantusneScoBatcécv-b82:1 


LENGTH_DIFF : i erence between number of gigits 
' to the left of the dee mal poin 
! in the number typed in and the dest 
LITERAL 
POSOP = 4g. !' Number to add to make overpunched + 
——5 — make overpunched - 
° ! verpunc 
NEGZEROP = 138: !- suerpunehed 
IF NOT (.DOT. SEEN) ! No dec pt. therefore 
THEN LEFT_DEU = .NUM ' all digits are left_dec 


. DIGITS ; 
RIGHT_DEC™= .NUM_DIGITS = .LEFT_DEC ; 
DEST_LENGTH = .STRING_DEST CDSC$W_LENGTH); 
SELECTONE .STRING_DEST COSCSB_CLASS) OF 


C OSCSK_CLASS_S J] : 
BEGIN 


14 
! If a decimal point was typed in, all the digits after it 
MUST be zeroes. 


IF .RIGHT_DEC GTR 0 


INCR I FROM (.PUTTER = .RIGHT_DEC) TO .PUTTER DO 
-BUFC.1] NEQ %C°0' 
THEN RETURN 0; 


If the number of digits typed in is less than the number of 
! digits in the destination string, then a pointer must be 

set up here so that the typed in digits get moved to the 

correct place in the destination. 


DSCS$B_DTYPE] EQL D TYPE_NL) OR 
DStS8_DIVPE EQL D T 

): 
8 


C$K_D 
CSK"DTYPE-NR) 


S am 


(. STRING DEST, DEST_LENGTH, ZERO);! Zero the destination 
DIGITS _TN_STRING -" .LEFT_DEC; 


ssee se = .STRING_DEST COSCSA_POINTER] + .LENGTH_DIFF 


E 
8 
0; ! Data entered too bit 
R 
= 
I 
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1 y Ph sues 
COBRTL.SRCJCOBACCECV.B52;1 (4) 


ma 


DEST_PTR = .STRING_DEST COSCSA_POINTER); 


CoB 
att 
END ; 
C DSCSK_CLASS_SD J] : 
BEGIN 
ALL code for "'P’' data types are in lowercase. 
034 LOCAL 
5 ok right 
8 LEAGTA_DiFF2; ! Difference between number of digits 


oO 


POROMERONUNUONy 2 2 4 3 2 A OQOO — Oo 
SSGFEARFEUNSSSSVEGRONLS 


! to the right of the decimal porns 
! in the typed in number and the dest 
dest_length = .string_dest(dsc$b_digits); 


1+ 

! This is checking for the P Picture of 99PP. ; 

! If the scale is positive and the number of digits in the 

! number equal the scale factor, then simply copy the digits 
: in BUF to the destination descriptor. 


FUSPVSPUSISUSI SII 


DUSRRUN LOOW RNP VO —— 


if .string_destCdsc$b_scale] gtr 0 
then 


SSSIS 


begin 

gon — t_digit 

° s, 
O08 diff; ° 
604 if ((.right_dec gtr 0) or (.num_digits gtr (.string_destCdsc$b_digits] + .string_dest[ds 
605 then ! number too Large 
8 return 0; ! re-prompt - error 
608 if .num_digits leq .string_dest[dsc$b_scale] 
609 then —~ ° — * 
619 
611 te 
alg ' Zero out the destination field using the digits as the proper 
e ! number of zero fill characters, rather than using the length 
eis : as found in the descriptor, since class SD is a Special case. 
618 "begin 
61 str$dupl_char (.string_dest, dest_length, zero); 
8 —2* 17 !"answer is zero 

end ; 


if .leading_zeroes neq 0 
e 
begin 


diff = (.string_destldsc$b_ igitsJ*.string dest(dsc$b_scale]) - .num_digits; 
dest_ptr = .string_dest(dsc$a_pointer]+.diff; 


Ann 
288 


Aan 
3888 
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SACCECV COBSACCECV = ACCEPT Conversion routines 18.56 1984 23:49: AX-11 Bliss-32 V4.0-74 Pa 16 
19601 COBSSNUMERIC_CONV = Convert to numeric string 14-Sep-19 4 ( 48:98 ECOBRTL-SRe coBaCCéCy BS2:1 — (4) | 
; 627 140 6 
3; 6 3 129 3 end 
: 6 146 else 
Pio RE * 
: 6 § 145 6 diff = .num digits - string gesttdecs scale); 
; ° 198 ° Ay ditt eql .string_dest(dsc$b_digits | 
; 635 148 6 dest_ptr = .string_dest(dsc$a_pointer] 
; 6 149 8 else 
: ? i 131 begin 
3 639 1 5 5 tot digits = (.string_destCdsc$b_digits] + .string_destl[dsc$b_scale]) - .num_dig 
; 9 13 4 dest_ptr = .string_dest(dsc$a_pointerJ+.tot_digits; 
Be aR * 
one 139 6 num_digits = .diff; 
; 646 135 § end; | 
: 64 160 : 
: 648 161 end 
3 $63 16¢ 4 else 
aie ted * | 
; $36 165 5 OK_LEFT = .STRING_DEST CDSCSB_DIGITS] + .STRING_DEST CDSCS$B_SCALE) ; | 
3 $27 166 é if .ok_left lss 0 | 
| ie ies 8 ome | 
; 656 169 5 ! Here we have a P Picture field of type PP99. 
3 657 170 5 ! We know this when OK_LEFT is less than zero. 
; O38 3 It requires some special casing. 
i Seo ve begin | 
; 66¢ 175 6 Local | 
: 66 176 6 diff | 
3 664 177 6 diffe, 
; 665 178 6 ptr. | 
3 666 +4 4 ° uf _ptr; 
; 668 181 6 if .left_dec gtr 0 ! error no °.' entered 
: 669 136 6 hen ! ring bell and reprompt 
: 670 1 6 return 0; 
; 671 184 6 
3 33 185 6 ok_left = 0; | 
z OF 1 6 ok_right = abs(.string_dest(dsc$b_scale]); 
: 674 1 6 if .right_dec gtr .ok_right 
3 679 188 6 then | 
; 676 ! 9 ° return 0; 
; 678 191 6 1+ | 
; 67 136 6 ! This handles case where the number of digits | 
: 680 193 6 ! entered is less than the absolute value of the 
; 681 194 6 ! scale factor, meaning that the number returned 
3 3 195 6 ' would have to be zero. The first part of the 
; 68 196 6 ! if statement takes care of the case wuere the 

| 


mo 
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SACCECV COBSACCECV = ACCEPT Conversion routines 1$-5¢ 1984 23:49: AX-11 Bliss-32 V4.0-74 P 17) 
19601 COBSSNUMERIC_CONV = Convert to numeric string 12-808=138e #3:43:98 COBRTL SRE ICOBACCECV. B92: 1 ste (4) | 
3 197 ! number of —26 2 equals the number of 
; 5 1 3 ! digits expected taking into account if the absolute 
3 6 1 ! va us 9 the scale factor is equal to the number 
; ' of d 3 ts entered to the right of the decimal point 
: 8 1 ? thereby giving us a result of zero again. 
: 690 08 g 
; 691 8 diff = Cabot .ctring, 86 ale]) - 
; 69 5 § -strin agest d3c$b_4j its]); ! Number of Placeholders in picture | 
: 62 Be if ((.right_dec * 5fkr̃ ing. destlassb. digits ) and 
: 694 0 § (.right_dec eql .diff)) OR 
; 695 8 (.right_dec leq .diff) 
3 O98 9 — then 
; 69 10 begin 
; 698 :) ee str$dupl_char (.string_dest, dest_length, zero); | 
3 69° ig 7 return 1; ! done - answer is zero 
: FO —38 —* | 
: 70 15 6 buf ptr = .buf_desc Cdsc$a_pointer] + .diff; 
; 70 38 6 diff = .num_digits - . f; ! Number of digits minus placeholders 
: 704 17 6 ch$move (.diff, .buf_ptr, .buf_descldsc$a_pointer]); 
: 705 218 6 diff2 = .string destldsc$b digits - diff; ! Number of digits to zero fill 
: 706 3h 4 6 ptr = .buf_descldsc$a pointer + diff; 
: 707 0 6 incr i from 0 to .diff2 - 1 do 
: 38 1 ? ch$move (1, zero, .ptr + .i); 
; 710 : 6 dest_ptr = .string_dest(dsc$a_ pointer); | 
; ay! $e ° num digits = .string_destLdscSb_digits) ; ! should only reflect number of digi 
3 ng 338 end 
3 716 33 5 else 
he BBS 7 
: 717 230 6 LENGTH_DIFF = .OK_LEFT = .LEFT_DEC; 
3; (718 331 $ LENGTH-DIFF2 = (.STRING_DEST CDS 8 DIGITS] - .OK_LEFT) - .RI¢HT_DEC; 
; ahs $36 } en eCENGTH_DIFF LSS OY OR ( .L'WGTH_DIFF2 LSS OF | 
3 g 1 $30 6 RETURN O ; ! Data entered too big | 
i 58 $3, 14 | 
; 726 237 6 ! If the number of digits to the left of the decimal 
; 3 238 6 ! point ef the number typed in is less than what 
; 726 239 6 ! should be in the destination string, then a pointer 
3 3 39 6 ! must be set up here so that the typed in digits get 
$ 3 8 moved to the correct place in the destination. 
: fi “§ 6 if .LENGTH_DIFF GTR 0 | 
; g § oF — DEST_PTR = .STRING_DEST CDSCSA_POINTER] + .LENGTH_DIFF 
; i éf 6 DEST_PTR = .STRING_DEST CDSCSA_POINTER); | 
: 7 249 6 ‘4 | 
3; «3 50 6 ! If the number of digits to the right of the decimal 
ee 51 6 ! point of the number typed in is less than what 
3; 739 26 6 ! should be in the destination string then the typed 
3; 740 53 6 ! in number must be padded with trai ing zeroes so that 


i Simply ignore a sign if it was part of the input 
string. 


CHSMOVE (.NUM_DIGITS, .BUF_DESC CDSCSA_POINTER], .DEST_PTR); 
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COBSACCECV = ACCEPT Conversion routines 1b-5e -1984 23:49: AX-11 Bliss-32 v4.0-74 
— COBSSNUMERIC_CONV = Convert to numeric string 12-80 8= 1882 $3:43:98 COBRTL.SRCICOBACCECV.B 2;1 
; 1 : 6 sign placement can be done correctly. 
: rg § $ iF .LENGTH_DIFF2 GTR O 
3 746 THE 
; 748 8 BEGIN 
: 7% 60 7 LOCAL 
3 26 61 7 PTR; ! Pointer into input buffer 
: re 8 ! past the digits that were typed in 
; 751 64 7 PTR = .BUF_DESC CDSCSA_POINTER] + .NUM_DIGITS = 1; 
; f § 65 4 NUM_DIGITS”"= .NUM_DIGITS + .LENGTH_DIFF2; 
: 754 8 do 
£2? 8 BEGIN 
: 187 % LOLAL 
: £38 4 PTR2; ! Loop pointer 
: 760 7 PTR2 = .PTR + .LENGTH_DIFF2; 
3; 761 74 CHSMOVE (1, ZERO, .PTR2); 
; 16 3 LENGTH_DIFF2 = .LENGTH_DIFF2 = 1; 
5 764 7 END 
3 *r ue i UNTIL .LENGTH_DIFF2 EQL 0; 
; re 80 6 END; 
: 768 81 6 
3; 769 8 5 end; 
; 770 835 4 end; 
3 44 Be END ; 
; 7 86 C OTHERWISE J : 
; Ae) 288 LIBSSTOP ( COBS_INVARG ) ; 
: 777 90 TES ; 
I 
; 780 38 i FILL STRING_DEST with zeroes. 
; «781 240 ! If everything is OK, copy the input string to STRING_DEST with 
3 ree 8* ! the sign set up correctly. 
a 97 
: Hf 3S COBSSZERO_FILL ( .STRING_DEST ) ; 
; 9 CASE {ETSI JEST COSCSB_DTYPE] FROM DSCSK_DTYPE_NU TO DSCSK_DTYPE_NRO 
; 0¢ SET 
; 04 (DSC$k_DTYPE_NU): ! Numeric. unsigned 


588 


Ww 
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SACCECV COBSACCECV = ACCEPT Conversion routines 1-se -19 249: AX-11 Bliss-32 V4.0-74 
830 COBSSNUMERIC_CONV = Convert to numeric string 12300-1984 $3:43:58 COBRTL.SRCJCOBACCECV.852;1 
; 738 1) ; COSCSK_DTYPE_NLJ: ! Numeric left separate 
: 800 1§ 4 BEGIN 
; 2 15 4 CHSMOVE (1, SIGN_VAL, .STRING DEST CDSCSA_POINTER)); 
; 1g 6 CHSMOVE (.NUM_DIGITS, .BUF_DESC CDSCSA_POINTERJ, .DEST_PTR + 1); 
; 805 18 END; 
3 09 COSCSK_DTYPE_NR): ! Numeric right separate 
: 80 4 BEGIN 
; 811 4 BUF C.NUM_DIGITS] = .SIGN_VAL; 
. \¢ 2 CHSMOVE (.NUM_DIGITS + 1, .BUF _DESC CDSCSA_POINTER], .DEST_PTR); 
; 14 END; 
3 518 CDSCSK_DTYPE_NLOJ: ! Numeric Left overpunched 
: 818 r BEGIN 
3 19 4 LOCAL 
5 $3 4 FIRST_TWO : VECTOR C2, BYTE), ' To be compared with 
; 821 4 ! first two bytes of STRING_DEST 
; & ¢ 2 FIRST_DIGIT : BYTE ; ! First digit and overpunch sign 
; H 4 4 FIRST_TWO £0} = 2x'7B° ; ! Positive overpunched 0 
: s 2 : ? FIRST_TWO C1) = 2x"30° ; ! Regular 0 
3 827 0 4 rr 
; 828 1 4 ! First byte of initial state STRING_DEST is always 78, 
3 33 4 ! therefore have to look at first two bytes. 
; a3 te * 
54 CHSMOVE (. DIGITS, .BUF_DESC CDSCSA_POINTER], .DEST PTR) ; 
; 33 6 4 IF CHSEQL ee STRING_DEST POSCSA POINTERS. 5 FIRST_TQO ) 
: 835 g 4 THEN 
3 FIRST_DIGIT = 
: 50 ( IF .SIGN_VAL EQL %C‘'+" 
3 51 THEN POSZEROP 
3; 839 26 ELSE NEGZEROP ) 
: ELSE 
3 § 32 4 : Spec tet treatment needed when .NUM_DIGITS is less 
3 2$ 4 ' than total # STRING DEST can hold 
3 57 4 ! for example : S99V99 - nput .00 => 
3 5 38 4 ! First two ortes of STRING DEST now hold °'7B° and ‘33', 
3 $ 59 4 ! but went ‘ ZEROP not POSOP as POSOP will result in wrong 
: , ¢ ? number 33.00. 
; B49 : 4 iF .NUM_DIGITS LSS .STRING_DEST CDSC$W_LENGTH) 
3 850 4 HEN 
; 851 4 FIRST_DIGIT = 
; 26 5 CIF .SIGN_VAL EQL 2C‘+° 
3 5 THEN POSZEROP 
; 54 LSE NEGZEROP ) 


“Seo 1904 9:48:06 


COpSACCECY 
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C 
5 
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g 
5 
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99 


Yanan Bliss-32 bE a 
COBRTL.SRCJCOBACCECV.852;1 


LSE 
FIRST DIGIT * 


i add whatever necessary to a regular hex number 
! to put it in overpunch format. Have to special 
' case zero. 


( IF .SIGN_VAL EQL 2C°+" 
THEN 
if - BUF £03 EQL 4C'0" 
HEN POS a 's4 
e* -BUF CO] + POSOP 
If _ .BUF £03 EQL %C°0" 
THEN NEGZEROP 
ELSE .BUF CO] + NEGOP ); 


CHSMOVE (1, FIRST_DIGIT, .STRING_DEST CDSCSA_POINTER] ) ; 


: END; 
14 CDSCSK_DTYPE_NRO): ! Numeric right overpunched 
78 BEGIN 


i add whatever necessary to a regular hex number 
: to put it in overpunch format. Have to special 
case zero. 


wn 
SESPASSESERS ETERS Sao 


=PIPIPIMIPININI NNN E BB EI BNI BBB EEE EEE NAR BS BF PNB BPP PEE 


w 


98 wad C.NUM_DIGITS = 1] EQL %C'0' 
BUF C.NUM_DIGITS = 1] = 


T 
( IF TSIGN_VAL EQL %C'+" 


IF 
THE 


L 
9 THEN POSZEROP 
Bo * ELSE NEGZEROP ) 
9 BUF C.NUM_DIGITS - 1) = 
9 ( IF TSIGN_VAL EQL %C‘+' 
94 THEN .BUF C.NUM_DIGITS - 1} + POSOP 
95 ELSE .BUF C.NUM_DIGITS - 1) + NEGOP ); 
3 CHSMOVE (.NUM_DIGITS, .BUF_DESC COSCSA_POINTER], .DEST_PTR); 
38 END; 

TES; 


338 


'¢ 
: Free local string 


STRSEREE1_DX (BUF _DESC); 
RETURN 1 3 
ND; ! end of COBSSNUMERIC_CONV 


a 
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Fopsaccecy COBSACCECY - E li 
1 COBSSNUMERIC_CONV = Convert to numeric string -Sep-1 COBRTL.SRCICOBACCECV.B 


17A -BLKB 
00 00 00 30 Boise P.AAA: .ASCII — ⸗ 


ZERO= P.AAA 
OFFC 00000 COBSSNUMERIC_CONV: 
-WORB Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
58 F7 49 V ZERO, R11 
E 3¢ g SUBL2 #60, SP 
10 AE 7 CLRG. ~=s-: DIGI T_SEEN 
04 AE D4 9 C CLRL BLANKS SEEN 
8 AE 7C OO00F CLRO ZERO_SEEN 
26 AE 7 91 CLRQ NUM BIGITS 
52 D4 0001 CLRL RIGAT_DEC 
18 AE 7C 0001 CLRO LEADING ZEROES 
4 AE 7C OOO1A CLRQ . BUF _DEST 
6D 0327 CF DE 0001D MOVAL 63$7 (FP) 
4 AE B4 000 : CLRW F DESC 
36 AE F 00 VB #157 BUF_DESC+2 
AE 2 0029 VB 2, BUF _BESC+3 
8 AE 04 000 CLRL BUF _DEST+ 
53 4 AC 00 000 VL § DESC, R3 
50 63 3C 000 MOVZWL (R33, ARG_LEN 
34 AE 9F 00037 PUSHAB DESC 
04 AE 14 AO 9E OO03A MOVAB (RO), 4(SP) 
04 AE 9F 0003F PUSHAB ) 
000000006 99 0 FB 0042 CALLS #2, STRSGET1_Dx 
9 38 «= AE «(DO 0004 MOVL BUF_DESC+4, BUF 
50 04 3 20 04D MOVL ), A 
20 AE 2B 051 MOVE #43, SIGN VAL 
6 AE OF 053 PUSHAB BLANKS_S 
C AE OOF PUSHAB ZERO SEE 
14 AE 9F 00058 PUSHAB DOT SEEN 
C AE 9F 0005E PUSHAB DIGIT SEEN 
4 AE OF SHAB SIGN_SEEN 
C AE OOF PUSHAB LEADING ZEROES 
4 AE OF PUSHAB PUTTER 
C AE OOF PUSHAB SIGN VAL 
44 AE CO PUSHAB NUM DIGITS 
4C AE OOF PUSHAB LEFT DEC 
3¢ AE OF PUSHAB BUF DESC 
7E C OA MOVa  CHARS_READ, -(SP) 
53 DD PUSHL 
0000v CF oF F CALLS #14, COBSSSCAN_ INPUT 
03 5 BLBS RO, 2 
O2BE 1$: BRW $ 
1D 0c AF E 23: BLBC_ DOT_SEEN, 5$ 
50 1c AE 7 f SUBL3 #1, PUTTER, X 
4 7 BeQr 3 
30 604 ? 3$: CMPB 4 s«(X) CBUFJ, #48 
10 BNE 
26 AE OD DECL § NUM_DIGITS 
3 p TSTL ss 
BNEO 48 


— — 


14 
SACCECV COBSACCECV = ACCEPT Conversion routines 18-56 21 249: AX-11 Bliss-32 V4.0-74 Pa 2) 
83 COBSSNUMERIC_CONV - Convert to numeric string 12-808- 1382 $3:79;98 COBRTL.SRCJCOBACCECV.B32;1 — q; 
OC AE 7? oF CLRO T_SEEN : 1978 
O% ii ae BRB 9 — + 1976 
0 2 4$ DECL x + 1981 
EA 11 Mp BRB 4 + 1971 
54 08 AC D 5$ MOVL § STRING_DEST, R6 : 2008 
18 10 AE E At BLBS  DIGIT_SEEN, gs ; 
16 AE OE BLBS § SIGN_SEEN, $ + 2001 
O4 C AE CE B4 BLBS DOT SEEN, 6 : 
5 oe a. B8 BLBC BLANKS SEEN, 7$ : 
8 at p BC 6$: ist ZERO_SEEN : 
6 DD 000C1 7S: PUSHL Ré + 2008 
0000v CF Fe t CALLS #1, COBSSZERO_FILL : 
0276 3 ¢ BRW 61 ; 009 
05 AE E CB 8$ BLBS  DOT_SEEN, 9$ : 2038 
28 OA 6 AE OD CF MOVL “DIGITS, LEFT DEC : 2039 
53 6 AE OD D4 9S MOVL § NUM~DI R + 2040 
8 AE D D8 MOVL LEFT pec 7 
52 5 5 of SUBL3 RS, RIGHT_DEC : 
2c COA 64 ie DOE MOVZWL (Rb) bEST_LENGTH + 2042 
5 03 Ab 9A O00ES MOVZBL 3(R65, RO + 2044 
: ot ees 
32 08 QOED Ist RIGHT_DEC ; 2056 
50 1 AE 5 c3 OOF1 SUBL3 RIGHT_DEC, PUTTER, RO + 2058 
ant aor Bestia _— 
30 6049 yf OOFA 10S: Cpe (1) (BUF, #48 3 
FS 50 10 (AE OF O10 11$ AOBLEQ PUTTER, I. 10$ : 
10 0 Ab 34 0105 12$ CAPS ¢(R6), Wb ; 2070 
12 02 9 91 9108 C #(R6), #18 : 2071 
le 10F BNEQ 4$ : 
53 2c AE ot c orn) 13$: SUBLS i DEST_LENGTH, DIGITS_IN_STRING ; 2072 
53 2c AE DO 118 14$: MOVL DEST LENGTH, DIGITS_IN_STRING > 2073 
5 3 pi 11¢ 15$: CHP Re BIGITS_in_STRING ; 2074 
58 bo 1 1 PUSHL R11 : 2077 
30 : PUSHA — ; 
00000 F 1 A #3, STRSDUPL_CHAR : 
moms BG, tate J 
58 53 04 A 9 i 4 ADDLS 4(R6), LENGTH_DIFF, DEST_PTR 3 081 
58 04 A 00 138 16$: MOVL —36.. DEST_PTR > 2083 
7 13F BRB 23$ + 2044 
09 9 91 00141 178:  CMPB RO, #9 : 2087 
of Big Be it ; 
54 09 454 128 18%:  MOVZBL HE R4 > 2190 
oy peenn ov 
3 8 Ab 5 13 CVTBL 8(R6). RB : $139 


ropsaccecy 


50 09 


38 


50 


58 


50 


57 


? 


ACCEPT Conversion routines 1 
CONV = Convert to numeric string 1 
33 08 138 
F 14 00150 
z Se ci B18 
1 166 198: 
Z $3 01 Oot 
18 Ag 1 
1 1 
1 09 Ae 9A 001 
i * —3818 
66 
8B 11 001 
s 08 $8 28 4 208: 
. a5 2 Ooiss 
51 09 AS 9A OOI9e 218: 
3} * 2 I 
51 s i O1A7 
6A 21 C1 OO1AA 
24 «AE DO O1AE a 
72 11 ane $: 
54 58 C1 001B4 24$: 
J— 
10 14 bolee 
50 04 001B 
166 
0 0 CE 001C 
28 ; i 98 258: 
51 1 001¢B 
ofS Hf BBN ate 
50 3 C3 001D3 28$: 
54 D1 0010 
$7 83 OF Bblbe 
: 13 1DF 
57 p 1E1 298: 
$5 DD OOIES 308: 
30 AE OOF 188 = 
000000006 00 5 pe 166 
014A f 1F4 
57 38 i i 17 31$: 
Bag BBB 0005 


— 
28 0* 
~Sep-1 


8 $2:10:98 


AX-11 Oi fees V4 .0-74 
COBRTL.SRCJCOBACCECV.832;1 


» R4, RO 
RO 


RB 
DING_ZEROES 


» RI 
RO 


—* 


aon 


a~aOm 
DDANAY we 
ee z2zawe~w 
— 


RI, DIFF 
FF (Rid), DEST_PTR 
R6), DIFF 

FF, RS, DIFF 

#8, 9(R6), DIFF 


0), DEST_PTR 


—OUW ant -O- ~ wir 
AN = DDA— Sad 


0), DEST_PTR 


WS AD DOOM AV BVI ONG DDD OlNl UDWwD DWN 
Wo OWN 


4 
R8, R4, OK_LEFT 
338 


26$ 
Ok LEFT 

at 

RO, RO 

RO, OK_RIGHT 
RIGHT_BEC, OK_RIGHT 
28$ 

62$ 

R4, RO, DIFF 
RIGHT_DEC, R4 
IGHT_UEC, DIFF 


{GHT_DEC, DIFF 
1 


T_LENGTH 
STRSDUPL_CHAR 
DESC+4, DIFF, BUF_PTR 


F, e 
F. (BUF _PTR), @BUF_DESC+4 
65, DIFF2 


|] 


™ 

— ~ 

— en j 
~~ 


~w 


— — — — — — —— 
SA 288388 


nmr 


Nm 
= 
@ 
od 


a — 


14 
SACCECV COBSACCECV = ACCEPT Conversion routines te -1984 249: AX-11 Bliss-32 V4.0-74 
1601 COBSSNUMERIC_CONV = Convert to numeric string 12-800-1382 $3:40;98 COBRTL.SRC coBACcECy 682: 
s7 ¢ SUBL2 DIFF, DIFF2 
50 iH 38 OA f f pet g BUF_BESC+4, DIFF, PTR 
4 — 14 BRB § § ' 
614 16 333: MOVE ZERO, (1)CPTRI 
FB 2 F 1A 338:  AOBLSS DIFFS, I, 32$ 
6A p 3 ROVE £10), DEST PTR 
24 «AE 09 A6 OA MOVZBL 9(R6), NUM_DIGITS 
1 6 348: BRB 40s 
53 0 C 5$:  SUBL3 7, OK_LEFT, LENGTH_DIFF 
4 ¢ C SUBL2 OK ‘LEFT, R4& 
51 4 t SUBL3 RIGHT DEC, R4, LENGTH_DIFF2 
b TSTL LENGTR_DIFF 
BLSS 4 
1 0 TSTL NGTH_DIFF2 
3 1 9 BLSS 
D TSTL GENGTH_DIFF 
1 9 BLEG 88 
6a 6A 3 4 0 5 ADDLS " NGTH_DIFF, (R10), DEST_PTR 
58 AD 0 8 368: MOVL (R10), DEST_PTR 
D : STL  LENGTH_DIFF 
5 15 00 th BLEG = G é 
50 55 38 AF ci 0 4 ADDL3 BUF_DESC+4, RS, RO 
07 3 DECL. PTR 
24 Ac 1 C0 00 ADDL2 LENGTH_DIFF2, NUM_DIGITS 
52 5 1 €1 00257 38$:  ADDL3 LENGTH"DIFF2, PTR> PTR2 
62 68 0 38 MOVE ZERO, CPTR2) 
31 p a i DeECL : NGTH_DIFF2 
D if 026 BRB 40$ 
000000006 8F DD 9 64 39%:  PUSHL #COBS_INVARG 
000000006 00 } Fe 6A ni CALLS a. LTB$STOP 
0000v cf 1 FB 7 CALLS #1, COBSSZERO_FILL 
7 24 AE p 027 MOVL NUM —86 R? 
04 OF 2 a6 BF O027C CASEB g(R6) #15, #4 
001A 002A 000D 9081 0 Bi 41$:  .WORD 393-413.~ 
$-41$.- 
$-41$.- 
O0A4 ire 
6 B86 20 A VAL, @4(R6) 
01 a48 % BE 5 GBUF_DESC+4, 1(DEST_PTR) 


L 
F 

VAL, (R7)CBUFJ 

T, RO 

@BuF _DESC+4, (DEST_PTR) 


57 66 10 
28 20 Af 


& 
w 
oo 
wo 
mm 
— 

SSLe Now 
CSB SRS— SSS 
SSSSSSSSSSSSSSS 

MOOS 

x = 

wif 

> ; 

33223 

o ow 

Ww 
LS 
NWO AWN OPW 


— | 


g 
~ 
FS) 
— 


copsaccecy 


3; Routine Size: 


68 


869 bytes, 


oy 
o 
o 
wm 
wv 
— 
on 


28 
30 
50 


50 


04 


38 =s«BE 
000000006 00 


7E 
000000006 00 


Routine Base: 


onversion routines 
onvert to numeric string 


gs 


=n 


1 
» HY 
1 
: i 
n Hi 
3 
4 
n Hi 
§ 11 
69 9A 
19 $9 
0 
aE: 
FF avis oF 0 
gig 
ait: 
78 af 9A 00 
1A 11 8 
7D 8F 9A 
o the 
$18 
10 £9 0 
66 1 3 
60 9A 
44 
aE 
34 af 0 
1 88 
4 
50 D4 
se of 
sou 
FB 4 F 
1 0D 
a HA 
i 
0 


_COBSCODE + 0180 


4 


— — 


a 
Sep- 


1 249: AX-11 Bliss-32 V4.0-74 Pa 25 
ra ES ree Alt eS oa) 
BNEQ) ss 5 ; 
BRB : 
6 VAL, #43 : 2375 
CMPB ss (BUF), #48 : 2377 
BNEQ 4 : 
MOVZBL #123, RO 3 
SCVZBL BUF), RO : 2379 
ADDL nee RO : 
BRB 2$ : 3377 
CMPB F), #48 + 2381 
BNEQ : 
MOVZBL #125, RO 3 
BRB : 
MOVZBL (BUF), RO + 2383 
ADDL ’ : 
MOVE RO, FIRST_DIGIT : 2375 
MOVB FIRST_DIGIT, a4(R6) + 2385 
BRB 60$ + 2300 
MOVAB <n?) CeuF I, RO : 2398 
CMPB ss (RO), #4 F 
BNEQ 6$ F 
CMPB S1GN_VAL, #43 + 2401 
BNEQ $ : 
MOVZBL #123, R1 : 
BES 383 3 
MOVZBL #125, R1 3 
BRB 58$ 3 
CMPB SIGN_VAL, #43 + 2406 
BNEQ 8 3 
MOVZBL (RO), R1 + 2407 
ADDL2. #16, R1 ; 
BRB 58$ 3 
MOVZBL (RO), R1 + 2408 
ADDL e » RI : 
MOVE. 1, (RO) + 2406 
ROVC3 R7, @BUF_DES(+4, (DEST_PTR) + 2410 
PUSHAB BUF _DESC : 3421 
CALLS #1, ~STRSFREE1_DXx : 
ROVL #1, RO : 2622 
CURL RO > 2423 
. WORD ave nothing 3: 1899 
MOVL (AP), RO ; 
MOVL  4(RO); R ; 
PUSHAD BUF DESC : 
PUSHL # ; 
SUSHL SP ; 
Kova 4(AP), =-(SP) : 
CALLS #3, COBSSFREE_STRINGS : 


} 
— — — — — — — — — — — — — — — — — — — — — — — — — 


} 
14 
SACCECV COBSACCECV = ACCEPT Conversion routines 15-Se $1984 23:49: AX-11 Bliss-32 V4.0-74 P 6 
83 COBSSFLOAT_CONV = Convert to Floating Point 12-808=1382 $3:43:98 {CoeRTL REICOBACCECV.B 231 _ a] 
3 if & ¢ 1 ZSBITL *COBSSFLOAT_CONV = Convert to Floating Point’ 
; 91 4 1 ROUTINE COBSSFLOAT_CONV (STRING_DEST : REF SSTRSDESCRIPTOR | 
; 914 4 $ 1 ' Final destination for input chars 
>; 915 & 3 FLAGS ! Enhancement flag 
i gig 428 1 PUT_HERE : REF BLOCK (8, BYTE), 
; Hh & 1 ! Contains input characters 
; 3i3 4 1 CHARS _READ ! # of input characters 
; 91 rs 1 : )= 
; $5) 288 | ote 
3; 9 § "4 ¢ : : FUNCTIONAL DESCRIPTION: 
: 3 4 4 1 i Convert TEXT input nen to sleot ne or Double Floating Point. 
; 925 4 1! Do nothing about errors in this routine, return control to calling 
3 8 ? : : routine. 
; 328 440 1 { FORMAL PARAMETERS: 
; 3 : 22 } STRING_DEST.mt.ds Address of descriptor to receive the read input. 
: 4 : 8 FLAGS. rlu.v Screen enhancement flag; 
; ote vee | : ; PUT_HERE.rt.dx Buffer to hold input characters. 
; 937 a8 ! CHARS_READ.rlu.v Number of characters accepted as input. 
; 938 430 1 i IMPLICIT INPUTS: 
J— 
*8 454 1! IMPLICIT OUTPUTS: 
; 94 455 1! 
J 
946 438 | t ROUTINE VALUE: 
3 948 460 1! 1 = Conversion Success 
3 > red ! } 0 = Conversion Failure 
; 931 465 1 t SIDE EFFECTS: 
; 958 486 ! Signals COBS_INVARG if the syntax of the number is wrong, 
; 955 46 
oo BB mm. 
; 958 29 CONV_OK : INITIAL (0) ; ! Conversion flag 
3 8 $f) am ! sJ error, =1 no error 
3 361 403 FLOAT_PROCESSOR ; 
; 368 475 FLOAT_PROCESSOR: 
: 36s rh PO ITOCAL 
: 966 47 TEMP_PUT_HERE : BLOCK (12,BYTE] VOLATILE ; 
; 96 47 ' Temporary buffer with length 
; 968 480 ! reflecting number of chars read 


CCEPT Conversion routines 


14 
——— — C V = Convert to Floating P Point 15 308-1382 $3: 18: 8 tbaRTL SRE cobatcéey 6S2; 37 


2> 


9 LITERA 
; ONLY ALLOWED 215; ' Bit 0 - blanks ore ignored 
7 ! Bit 1 = only or exp 
3 ! Bit 2 - under lev s an error 
7 5 ! Bit 5 = do not round 
74 BIND 

975 COMMA = UPLIT ('° 

3? DOT = UPLIT ('. * 


14 
i Pick appropriate conversion routine based on 
data t type. 


OOO 
Wr 


2222888 
beet ert PP 


TEMP -PUT_HERE —39 “ 
TEMP_PUT_HERE CDSC$B_ Ped 
TEMP" PUT HERE ith tL ASS 
TEMP_PUT_HERE COSCSA_ POINTER 


94 BIND ROUTINE CVTTX = 
95 F .STRING DEST, COSCSB_DTYPE] EQL DSCSK_DTYPE_F 
one 38 THEN OTSSCUT_T 
986 38 ELSE IF states DEST CDSCSB_DTYPE] EQL DSCS$K_DTYPE_D 
987 THEN OTSSCVT_T_B 
988 00 ); 
989 01 
990 8 14 
393 4 f 
336 3 i. don't need STRSGET1_DX or STRSFREE1_D 
89 
08 
09 


14 
i If DECIMAL POINT IS COMMA is set and a comma came in, 
i must change it to a decimal point before the convert. 
i OTS$ routines oppose a decimal point. 
t Also must not allow a dec pt as input in that case. 
iF (.FLAGS AND V_DEC_PT) NEQ 0 
THEN 

BEGIN 


INCR PTR FROM 0 TO (.CHARS_READ = 1) DO 
BEGIN 


—— — — — — — — — — — 


PEW O WN “CO VONOUSWN—O 


$383338833333333 


IF CHSEQL C1... TERP PUT HERE COSCSA_POINTER] + .PTR, 


THEN 
BEGIN 


CONV_OK = 0; } {Utegat. looking 
LEAVE FLOAT_PROCESSOR; i for a 


IF CHSEQL (1, ,TEMP_PUT_HERE CDSCSA_POINTER] + .PTR, 
THEN 1, COMMA 


CHSMOVE (1, DOT, .TEMP_PUT_HERE CDSCSA_POINTER] + .PTR); 


— aed — — — — — — — — 


SOoooocoocooeoo 


à ——⏑—⏑—⏑⏑⏑⏑⏑⏑j⏑ SISTA IIIS SB PEPE P EPP PPP PLES 


4 
4 
4 
4 
4 
4 
ELSE 0 
! Make TEMP_PUT_HERE a fixed Longen Peerroue = 
4 
4 
: 
6 
6 


Be Se Se Se Se Se Se Se Se Se Se Ge Ge Fe Ge Ge So Ge Se Ge Se Ge Se Ge Ge Fe SF Se Ge Ge Se Se Se Se 66 GE Se Se Se SF Se Se Se Se Se Ge Se SF Se Se Se Ge Se Se Ge Sees 


— — — — — —— — — —— —— —— ed ed —— — — ed 
MEUM —OOONOUSWN Oo 


Rorofnoforory 


ooo 


or 
2> 


CCEPT Conversion routines 13-Sep-1984 $3:48:06 eres OL ieee 32 v4.0- 


74 Page 38 
V = Convert to Floating Point 14-Sep-1 OBRTL.SRCJCOBACCECV.852;1 (5) 


FOBSACCECY 8 


$ 
$ 

31 END; 

: : 2 * END 

31 41 4 i If DECIMAL POINT IS COMMA is NOT set and a comma 

; : ; r 2 H came in, this is a conversion error 

:1 44 3 ELSE 

; i 5 49 4 BEGIN 

: 1035 8 4 INCR PTR FROM 0 TO (.CHARS_READ = 1) DO 

: 19 8 BEGIN 

31 50 IF CHSEQL (1,.TEMP_PUT_HERE CDSCSA_POINTER] + .PTR, 

3; 10 1 » COMMA) 

: 1040 : THEN 

3 1041 6 BEGIN 

: 104¢ 554 6 

3; 104 555 6 CONV_OK = 0; ! Illegal, toed tee 

3 1044 228 6 LEAVE FLOAT_PROCESSOR; ! for a decimal p 

: 1002 23, 8 END: 

; 868 559 1 END; 

: 1048 560 END ; 

> 1049 561 

: 1050 36¢ ‘+ 

: 1051 56 ! Check that input data is not out of range. 

: 105¢ 564 ie 

: 105 565 4 BEGIN 

; 1054 566 4 LOCAL 

3 1932 8 MAX ; ! Maximum significant digits allowed 

: 108? 569 3 MAX = ( IF .STRING_DEST COSCSB_DTYPEJ EQL DSC$K_DTYPE_F 

: 1058 570 THEN 7 ! AO ey 

3 33 3) ? ELSE 16) ; ! Double Floating 

: 1061 278 4 CONV_OK = COBSSVERIFY_FL_RANGE ( TEMP_PUT_HERE, .CHARS_READ, 

: 1068 574 4 “MAX )7: 

: 106 575 4 IF .CONV_OK 

: 1064 376 4 THE 

: 1065 7 BEGIN 

: 1066 378 1¢ 

: 106 57 ' Convert to float or double. 

: 1008 280 if NOT ( CVTTX ( TENP_PUT_HERE 

; 1988 38 g STRING DESTCDSCSA POINTER), 

: 1071 5 0, 0. ORLY_E_ALLOWED ) ) 

3 1078 3 : THEN CONV_OK = ! Conversion error 

3 1074 5 CONV_OK = 1; ! No error 

: 1075 387 4 : 

: 1 2 5 END ; 

: 107 389 END ; 

+ 1078 234 RETURN .CONV_OK ; 

> 1080 592 Ee pee ! End of COBSSFLOAT_CONV 
| 
| 
| 


sores gps — — — 


15 
OBSACCECV COBSACCECV = ACCEPT Conversion routines 18-5e 1984 23:49: AX-11 Bliss-32 V4.0-74 P 9 | 
1601 COBSSFLOAT_CONV = Convert to Floating Point 14-Sep-19 4 314318 COBRTL.SRCICOBACCECV.B 2:1 ee 3 
tT -BLKB 3 
8 8 8 st 4E8 P.AAB: .ASCII —23* ><0> : 
E OO4EC P.AAC: .ASCII \.\<0><0><0> : 
COMMA= P.AAB 
00T= P.AAC 


007C 00000 —— CONV: 


| 
ORD Save R2,R3,R4,R5,R6 3 2425 
56 (7? AF OQ 90002 MOV DOT, R6 : — 
E O¢ C2 000 SUBL2 #12. SP : 
D4 00009 CLRL. © CONV_OK : 3468 
52 04 AC DO 00008 MOVL § STRING_DEST, R2 + 2495 
54 D4 OO00F CLRL = RG : 
OA 02 A2 91 90011 CMPB =. 2(R2), #10 : 
08 12 0015 BNEQ 1$ : | 
4 06 9001 INCL RG : 
50 000000006 00 9€ 00019 MOVAB QISSCVT_T_F, RO : | 
11. 11 00020 BRB 3 F 
0B 02 Ag 91 00022 1$ CMPB (R2), #11 + 2498 
09 12 00026 BNEQ : 
50 000000006 00 9€ 00028 MOVAB QISSCVT_T_D. RO : 
2 11 000¢F BRB $ : 
0 D4 00 1 28 CLRL = RO : | 
55 0 00 00033 3$ MOVL RO, RS ; 
6E 10 AC BO 00036 MOVW  § CHARS_READ, TEMP_PUT_HERE : 2506 
02 AE 10 90 00054 MOVB #16, TEMP_PUT HERE+2 ; 307 
03 AE 01 90 000 : MOVB #1, TEMP_PUT_AERE+3 : 2508 
50 0c AC 00 0004 MOVL  PUT_H : 2509 
04 AE 04 AO D9 00046 MOVL. 4(RO), TEMP_PUT_HERE+4 : 
51 10 AC 01 ¢ 00048 SUBL3 #1, CHARS_READ,~R1 : 2521 
iF AC 06 €1 0005 BBC #6. FLAGS, 6$ : 2517 
50 01 CF 00093 MNEGL #1. PTR + 2526 
14 1 00 8 BRB 5 F 
66 04 BE40 91 0 O5A 4$ CMPB  @TEMP_PUT_HERE+4(PTRI, DOT ; 
52 13 0005F BEQL ; 
FC 46 04 BE4O 91 00061 CMPB © @TEMP_PUT_HERE*4CPTRJ, COMMA + 2534 
05 12 00067 BNEQ : 
04 BE40 66 90 00069 MOVB DOT, @TEMP_PUT_HERE+4(PTR] : 2537 
E8 50 51 F O06 5$ AOBLEQ R1, PTR, 4$ : 2521 
50 bt be Bore 68 GNEGL #1. PTR : $215 
OB f $097 BRB. 8$ : | 
FC AG 04 BE4 1 0079 7$ CPB @TEMP_PUT_HERE*4CPTRI, COMMA : 2550 
F4 50 ¢ 3 0081 $ AOBLEQ R1, PTR, 7$ + 2547 
93 4 € 0 $ BLBC R4. 10$ + 2569 
0 7 00 000 MOVL #7. MAX : | 
o3 11 era 11 : | 
50 D0 10$:  MOVL #16, MAX : 
50 DD 11$:  PUSHL MAX : 2574) 
10 AC BD 9 PUSHL  CHARS_READ > 2573 | 
08 AE 9F 0009 PUSHAB TEMP PUT HERE : | 
0000v cf ; FB 9 CALLS #3, COBSSVERIFY_FL_RANGE ; 
3 D 9D VL —s RO, CONV_OK : 


copsaccecy 


: Routine Size: 


COBSACCECY 
OBSSFLOAT 


190 bytes, 


17 


59 


Routine Base: 


= ACCEPT Conversion routines 
CONV = Convert to Floating Point 


-COBSCODE + 04F0 


1986 $2:10:28 


15 
-§ 
8 


CONV_OK, 14$ 
a 


AX-11 Bliss-32 V4.0 
COBRTL.SRCJCOB eat CCECV 


15 
FORSACCECY COBSACCECV = ACCEPT Conversion routines 13-Sep-1984 $3:48:06 AX-11 Oi ieee A 
1 COBSSCOMP_CONV = Convert to COMP and COMP3 14-Sep-1 :10: COBRTL.SRCJCOBACCECV.852;1 
1 ZSBITL *COBSSCOMP_CONV = Convert to COMP and COMP3' 
1 ROUTINE COBSSCOMP_CONY (STRING_DEST : REF SSTRSDE CRIPTOR, 


! Final destination for input chars 


FLAGS, ! Enhancement flag 
DEFAULT : REF SSTRSD at ae 
PUT_HERE : REF BLOCK , BYTEJ 
' Contains input characters 
CHARS _READ ! # of input characters 


YES_DEF AULT, i 21 if DEFAULT value is used 
YES_SIGN ! =1 if sign should be included 


Sao 
Snes SSseSFS 


oO 


144 


i FUNCTIONAL DESCRIPTION: 
i Convert TEXT input string to appropriate VAX COBOL COMP or COMP3 


SEES ESSERE Cs 
— 


OM 
: 1 
; 1 
3 1 1 
. 9 1 
3 1 1 
3 1 1 
3 1 1 
3 1 1 
3 1 1 
ey 1 
3 3 1 
3 1 1 
3 7 1 
3 7 1 
3 6 1! 
31 6 1! 
. 6 1} data type. 
3 1 610 1! Do nothing about errors in this routine, return control to calling 
3; 1100 611 1! routine. 
3 1101 ol¢ 1! 
3 1108 61 1 ! FORMAL PARAMETERS: 
3 110 614 1! 
3 38 *R STRING_DEST.mt.ds Address of descriptor to receive the read input. 
3 1188 ei? : FLAGS.rlu.v Screen enhancement flag; 
3 1108 619 1! DEFAULT.rt.dx Default source moved to destination descriptor 
3 6 (STRING_DEST) in the event of null input. 
3 4B § ; : PUT_HERE.rt.dx Buffer to hold input characters. 
; 118 ¢ : CHARS_READ.rlu.v Number of characters accepted as input. 
3 3ß $ : : YES_DEFAULT.rlu.v Flag = 1 if DEFAULT used because of null input. 
31117 628 1! YES_SIGN.rlu.v Flag = 1 if sign should be included in COMP or COMP3 
3 1118 629 1! data type. 
3 1119 630 1! 
3; 1120 631 1 =! IMPLICIT INPUTS: 
3 1121 6 § 7! 
3 11 § 6 1: NONE 
3 112 6 1! 
3 11246 635 1 ! IMPLICIT OUTPUTS: 
3 1125 6 1! 
311 $ 6 7! NONE 
3 71 638 1! 
3; 1128 639. 1 ! ROUTINE VALUE: 
3; 1129 640 1! 
3 11 641 1! 1 = Conversion Success 
3 1131 8 1! 0 = Conversion Failure 
3 11 § 645 1! 
3 Hi vee } : SIDE EFFECTS: 
: i 5 8 Signals COBS_INVARG if the syntax of the number is wrong, 
3 11 648 1 
3; 1138 649 2 BEGIN 
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1 COBSSCOMP_CONV = Convert to COMP and COMPS 14-Sep-19 210: COBRTLe$ CICOBACCECV. 5 2;1 (6) 
: 1139 6 LOCAL 
3 11 CONV_OK : INITIAL (0) ; ! Conversion flag, 
3 114 ! 20 error, =1 no error 
ue eH — 
1i18 LOCAL 
3 1165 — EXPONENT: INI u (0), ! Exponent for the CIT 
: 1368 6 I VALUE : VECTORC12, BYTE], | COBOL intermediate temporary 
3 1146 6 $ SIGN: BYTE, ! Sign of the ‘nout str ng 
3 1138 $22 SEND _CHARS_ READ; ' Local to hold .CHARS TRE D 
:11 1 16 
3 11 ° os i Ss ge Me be BLANKS _SIGN may change the value of 
311 ¢ 66 ! SEND_CHARS_READ therefore it is important to send 
3 11 664 i this” toeete instead of CHARS_READ tah ich should NEVER 
3 1) ¢ 665 i be altered). 
: 1196 $e? SEND_CHARS_READ = .CHARS_READ ; 
Si es: : 
311 670 i First must strip off le eding and — blanks and 
3 1169 of the sign because COBSCVTTI won t accept them. 
: 116¢ 67 if .YES_DEFAULT 
3: 116 674 THEN 
3; 1164 675 14 
31165 ore ! This move must be done because STRIP routine 
: 1166 67 ! writes back into the Ist parameter and DEFAULT 
3 8 o78 a is read-only. 
: 1169 680 CHSMOVE (.CHARS READ, .DEFAULT CDSC$A_POINTER], 
: 1170 681 .POT_HERE COSCSA_POINTERY); 
: 1178 68 CONV_OK = — J— BLANKS SIGN (.PUT_HERE, .STRING_DEST, 
7 117 684 D_CHARS_READ, EXPONENT, SIGN, .FLAGS); 
3 1174 685 IF CONN Oe 
Wg i a 
: WW? 688 i Convert the stripped | input t string to CIT. 
s in 689 i Must do convert to C estination data 
3 91 690 i type because these 7 aE routines take 
3 1139 8 4 into account the scale factor. 
311 2 69 CONV_OK = COBSCVTTI_R8 (.SEND_CHARS_READ, 
$ 4 83 -PUT_HERE DSCSA _POINTERT, I_VALUE); 
: 1185 696 IF .CONV_OK 
3 By 69 THEN 
3 1188 8 BEGIN 
: 1189 $ 4 LOCAL 
3: 1190 701 4 SCALE; 
We ge . 
3 119 7 4 i Pick the sporepr tote genverston routine based 
3 1194 705 4 i on data type. 27 at routines have the 
3; 1195 7 & ! some Linkage. At this point we can be sure that 


Check to see if sign should be included. 
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12801 COBSSCOMP_CONV = Convert to COMP and COMP3 1 333 343138 COBRTL.SRC cOBALCECy 6S2:1 - (6) 
136 — 7 H we are dealing with one of these six data types. 
7 BIND ROUTINE CVTIX = ( 
138 7 IF _ .STRING DEST COSCSB_DTYPE] EQL DSCSK_DTYPE_w 
9 4, THEN COBSCUTIW_R 
§ q ELSE IF .STRING gcse COSCSB_DTYPE] EQL DSCSK_DTYPE_wu 
ay HEN COBSCVTIW_R 
5 ay | ELSE IF .STRING — COSCSB_DTYPE] EQL DSCSK_DTYPE_L 
06 4 THEN COBSCVTIL_R 
8 ie ELSE IF .STRING — COSCSB_DTYPE] EQL DSCSK_DTYPE_LU 
09 g 9 THEN COBSCVTIL_R 
11 7 § FUSE IF STRING DEST COSCSB_DTYPE] EQL DSCSK_DTYPE_@ 
2 ? ; HEN COBSCVTIQ_R8 
14 725 ELSE IF .STRING DEST CDSCSB_DTYPE] EQL DSCSK_DTYPE_Qu 
15 7 § THEN £08 CvTIQ ae 
18 f i ELSE 0) : JSB_878 ; 
1 729 + 
i 7 First must re-insert the sign in the CIT. 
0 731 The sign of the CIT is contained in byte 12 
1 7 (see appendix C of the RTL Ref Manual for a 
7 § description of the CIT). ‘C* means + and ‘D' 
¢ 7 means -. COBSCVTTI always returns a positive 
: f 5 number, so if the input number was really 
— 7 
7 
7 


i] 
i 
i 
i 
i 
i 
i 
: negative, must make the sign byte negative. 
i 
I 
T 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 
— 


8 o 
3 sien EQL %C*=" AND .YES_SIGN 
741 I1_VALUEC11] = .I_VALUEC11) + 1; 
5 He . 
§ 744 i Next must insert the exponent in the CIT. 
: pe? The first word of the CIT contains the exponent. 
3 CHSMOVE (2, EXPONENT, I_VALUE); 
74 '¢ 
7 ° ‘ fenvert from CIT to destination data type taking 
7 4 : nto account the scale factor. 
4 7 SCALE = ( IF .STRING DEST CDSC$B_CLASS) EQL DSCSK_CLASS_SD 
4 754 THEN -.STRING_DEST CDOST$B_SCALEJ 
8 — 5 ELSE 0 ); 
4 7 § CONV_OK = ( IF CVTIX EQL 0 
: f WHER 
49 8* Packed 
1 7 COBSCVTIP_R9 (.SCALE, I_VALUE, 
3) 8 -STRING_DEST COSCSW7LENGTH, -STRING_DEST CDSCSA_POINTER)) 


— st — — — — — — 


82888 


Wy ec⸗ 


Se i i i I 
i 
wre 


roo BS 


oe 
on 
— 2 


tml 


EC 


Vv 


CON 


B0 


RETURN .CONV_OK ; 
END ; 


08 


0000Vv 


03 


000000006 3 


ACCEPT Conversion routines 
V = Convert to COMP and COMPS 


000000006 


END; 
END ; 
OFFC 00000 COBSSCOMP_CONV: 
.@ORD 
18 C2 0000 SUBL2 
5B 04 0000 CLRL 
04 AE D4 00007 CLRL 
14 AC DO QOOOA VL 
18 AC €E9 QO00F BLBC 
of AC D 8 VL 
1 AC 00 0001 VL 
14 AC 28 0001 novc3 
08 ac OD 8 1$: PUSHL 
Be AE 9F 000 PUSHAB 
C AE 9F 00028 PUSHAB 
14 AE 99F 00028 PUSHAB 
064 ac 00 8 VL 
5A 0D 000 PUSHL 
10 aC 00 000 VL 
52 DD 000 PUSHL 
98 F 9034 CALLS 
DO 0003F MOVL 
58 § te BLBC 
Cc AS 4 MOVAB 
4 A2 D 49 MOVL 
A 9 D MOVL 
6 51 JSB 
D 57 MOVL 
8 2 23: BLBS 
0090 D RW 
02 AA 9A 3$: MOVZBL 
50 91 CMPB 
12 67 BNEQ 
9— MOVAB 
1 BRB 
91 4$: CMPB 
12 BNEQ 
‘ = 
91 5$: CMPB 
12 BNEQ 
5 6$: MOVAB 
1 Cc BRB 
50 91 7$: CMPB 


4 
238 


ELSE 
'¢ 


Be $2:10:28 


Integer types 


AX-11 Oi iene se Fh sri 
COBRTL.SRCJCOBACCECV.832;1 


CVTIX (SCALE, I_VALUE, .STRING_DEST COSCSA_POINTERJ) ) ; 


! End of COBSSCOMP_CONV 


Saye R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
#24, SP 


EXPONENT 

CHARS_READ, SEND_CHARS_READ 
YES DEFAULT, 1$ 

DEFAULT, R1 

T HERE, RO 

CHARS_READ, @4(R1), a4(RO) 
LAGS 


e 


PONENT 
ND_CHARS_READ 
RING_DEST, R10 
T 


HERE, R2 


—— 


COBSCVTIW_R8, RI 
RO, #3 
OBSCVTIW_R8, R1 
RO, #8 
OBSCVTIL_RB, RI 
RO, #4 


————— ee 
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conse COBSSCOMP_CONV = Convert to COMP and COMP3 1aageb=}88e F3:78;98 egen esc ag eet eS. Page 33 | 
f BEQ 6 
09 cHPB 4. *9 2ree 
3} 000000006 * HOVAB COBSCYTIO_RS, R1 : 
2 
RB 11$ : 
05 i i 9$: cMpe R a5 + 2725) 
50 000000006 ‘ MOVAB FOBSCVTIO_R8, RO : 
i ti 198: ahet ORS. ot ; 713 
D 6 0 ° 87 138: CMPB SIGN, #45 F $748 
lg BA BNEQ 1 : 
03 5 AC : 008 BLBC YES _SIGN, 13$ : 
17 AE 6 00C INCB =«-I_ VALUE? + 2741 
OC AE 04 AE : 00C3 13$ MOVW BRPONENT 1_VALUE + 2747 
09 3 AA 91 000C CMPB (R10), # : 2753 
09 12 doce BNEQ 14$ : 
56 08 AA 98 000C CVTBL 8 (R10), SCALE > 2754 
56 56 cf 00D MNEGL SCALE, SCALE : 
11 0000 BRB 15$ : 
D4 00007 14$:  CLRL SCALE : 375 
1 05 00009 15$:  TSTL Ri : 275 
13 12 00008 BNEQ 16$ : 
57 OC AE 3 00000 MOV I_VALUE, R7 + 2762 
9 04 AA 3 00E1 MOVL 4TR10), R $ 
58 6A 3C O00ES MOVZWL (R10), RB ; 
000000006 90 16 OOEB JsB : BSCVTIP_R9 : 
57 OC AE 9 zogtt 168 MOVAB I VALUE, R7 : 2768 
58 04 AA 000Fs MOVL 4TR10), R8 : 
61 16 O00F8 JSB (R1) : 
58 50 DO OOOFA 17$: MOVL RO, CONV_OK 3 
50 58 DO OOOFD 18$:  MOVL © CONV_OK,~RO : 277 
04 00100 RET : 277 
3; Routine Size: 257 bytes, Routine Base: _COBSCODE + O5AE 


CCECV COBSACCECV = ACCEPT Conversion routines 
fons EOBSSSTRIP_ BLANKS, SIGN <*puLL blanks snd 
: 1266 774 1 ZSBTTL "COBSSSTRIP_BLANKS SIGN - 
; 1 — ROUTINE COBSSSTRIP“BLANKS7S1.0N ( 
> 126 1 INPUT_STRING REF $$ 
31 68 128 1 STRING. DEST REF HA 
3 ' § i i NUM_DIGITS, 

: 127 781 1 

21 ; 7 ; 1 EXPONENT, 

: 127 783 1 IGN_VAL : REF BL 
; ; 3 — FLAGS ) = 

31 7g 786 1 !44 

3 1 g , i FUNCTIONAL DESCRIPTION: 

:1 8 789 1/3 Strips leading and trail 
: 1280 7 —14 Puts the remaining strin 
3; 1281 791 1! accordingly. Also stri 
3 1 Be 3 1! es parameter SIGN_V 
3; 128 795 1! trips the decimal point 
3: 1284 794 1! Does nothing about error 
: ; 85 795 : } calling routine. 

; i 7 799 FORMAL PARAMETERS: 

> 1289 799 1: INPUT_STRING. rt.dx 

: 1 800 1: STRING DESC. rt.dx 

; i 1 801 i : NUM_DIGITS.ml.r 

HE BT ro 

4 .* oW of 

: ; 5 805 : : SIGN_VAL.wb.r 

3 3 60 ; IMPLICIT INPUTS: 

; i 99 809 ; NONE 

3 i 1 eit 1 : IMPLICIT OUTPUTS: 

; 4 318 NONE 

3 i 5 15 i ; ROUTINE VALUE: 

; i iH 0 = failure, 1 = success 
; i 09 19 SIDE EFFECTS: 

F " 1 ; NONE 

31 ig § * 

; 1 14 4 BEGIN 

31 LOCAL 

: 131 TEMP_NUM_DIGITS : JNITIA 
3 1318 BUF _BESC™: BLOCK CR, Bvt 
: 1319 SIGR_SEEN : INITZaL (0) 
: 1320 DIGIT_SEEN : J%iTIAL (OS 


15 


sion VICRIRTTRRE FEHB:98 WSL etdegcaz vason7eg, 


Pull blanks and sign. 
: ; rip blanks and sign from 
nput numeric string 
' Numeric string fo scan 
. 0 r 


. haracters read 

' Will contain the number of 

! chars after the strippin 

! Will contain the exponen 

! Will contain the sign char 

! Needed for COMMA verification 


— — — — tt tt tt 
@ 
be | 
°o 
— 


Ock C,BYTEI, 


ing blanks from the input numeric string. 
g back and adjusts the number of digits 
s off the sign char and puts it into the 


and segures out the exponent. 
s in this routine, returns control to 


The numeric string to scan 
The destination strin 


Lt (0), ! Tally of stripped number of digits 
E] VOLATILE, ' Temporary buffer 
} 1 = we have seen a + or - 


° ! 1 = we have seen at least one digit 


; | 
— — — — — — — — — — — — — — — — — — — —— —— —— — — — 


— — — — — —J 


BUF = .BUF_DESC (DPSCSA POIMIERI) 
ARG = .INPOT STRING CDSCSA_POINTER); 
»SIGN_VAL = 2C'+'; 


i 
SONOS UNO 


! Scan the input number, put result in BUF. 


IF NOT ( COBSSSCAN_INPUT ( . INPUT STRING 
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ity EOBSSSTRIP.BLANKS SIGN * PaLt blocks sad sign Jacebeione Goitorss «Pedant she ScoaatcEty oS2-1 nal B 
: 1321 OT SEEN : INITIAL (0), ! 1 = we have seen a decimal point 
33 § ERO SEEN: Ini TIAL (0), ! 1 = zero seen . | 
3 1 BLANKS _SEEN : INI jit (0), ' 1 = we hove seen trailing blanks 
: 1326 ryrien : INITIAL (0) ' Counts pos ; on in the output buffer 
: 1325 5 LEFT_DEC : INITIAL (6) ' Number of digits to left of dec. pt. | 
i 1326 PDATA_FLAG: INI TAL ¢ Bs i Flag to indicate if a P Picture item 
3 1 BUF : REF VECTOR 18 . eyed. ' Addresses result 
3 4 3 INP_: REF VECTOR (1100, gyre ° ! Addresses result in input_string 
3 1 LEADING. ZEROES: IN Tis (0) ' Counter of leading zeroes 
: ; : ARG : REF VECTOR C1100, BYfe); ! Addresses source 
31 LITERAL 
3 1 SUCCESS = 1, 
3 3 4 FAILURE = 0; 
33 BIND 
; i 5 . ZERO = UPLIT ("0"); 
3 } H bcs Enable a handler to free the local string in case of an error. 
oe 
i] $ 638 COBSSFREE_STRINGS (BUF _DESC); 
> 1365 Reg 1+ 
3 } $ $28 : If there were no digits input, it means that a <CR> was hit. 
; 1348 858 "TF ..NUM_DIGITS EQL 0 
3 1349 85 
: : 39 ney RETURN SUCCESS; 
> 135 86 16 
3 1 eg a8 ! Allocate enough space to hold the digits. It is convenient to 
3 1354 864 ! allocate before scanning, so we may allocate a Little too much, 
; ; 2 865 : but the space will be freed before we return. 
51 2 Be? "BUF _DESC CDSC$W_LENGTH) = 0; 
3 1358 868 BUF “DESC DSCSB-DTYPE] = DSCSK_DTYPE_NU; 
3; 1359 86 BUF _DESC [DSCS$B_CLASS] = DSCSK_CLASS_D; 
3 1 F_ DESC CDOSCSA_POINTER) = 0; 
; i 1 STRSGET1_DX (.NOM_DIGITS, BUF _DESC); 
J pa 
¢ 1388 ;_ Set pointers. | 
3 7 
3 1 
: 1 
2 
31 
3 1 
3: 1 
3 1 . -NUM_DIGITS, .FLAGS, BUF_DESC, 

31 5 LEFT_DEC, TEMP_NUM DIGITS, -SIGN_VAL, PUTTER 

31 LEADING ZEROES; SIGN SEEN, DIGITSEEN, DOT_SEEN, 

3 7 ZERO_SEEN, BLANKS_SEEN ) § 


Wit 


15 
EPI FENBSES WRG OS RSAB Ataf 


FOpsACCECY COBSACCECV 
1 COBSSSTRIP COBRTL. esr CICOBACCECV.852;1 


137 


LANES. § Conversion routines 1 
SIGN = Pull blanks and sign 1 


THEN 
RETURN 0 ; 


te 
i If there are no digits, or only leading zeros, take the number to 
be zero. Don't be’ too guil ible, however. 
, IF ( NOT .DIGIT_SEEN) 
THEN 
BEGIN 


IF (.SIGN_SEEN OR :DOT_SEEN OR .BLANKS_SEEN) AND (.ZERO_SEEN EQL 0) 
4 
4 


THEN RETURN FAILURE ; 

BUF C.PUTTER] = xc" 0’ ; 

PUTTER = .PUTTER + 

TEMP_NUM_DIGITS = eke _NUM_DIGITS + 1; 


ooo 


wn 


+ 
Validate size of entered data, left and right of decimal point. 


ELSE 
BEGIN 


LOCAL 
DEST LENGTH , 
OK_LEFT , 


RIGHT_DEC : INITIAL (0) ; 


RENLSSSLEAE 


So 
w 


Destination length 

Correct number of digits allowed 

to left of decimal p 

Number of digits to cine of dec pt 


SELF 


IF NOT (.DOT_SEEN) 
THen LEFT DET = .TEMP_NUM_DIGITS 
RIGHT _DEC"= .TEMP_NUM“DIGITS - Lert DEC ; 


"strip trailing zeroes after the decimal point. 


iNCR GETTER FROM 1 TO .RIGHT DEC DO 
IF_ .BUF C.TEMP_NUM_DIGITS = .GETTER] EQL %C'0" 


RIGHT_DEC = .RIGHT_DEC =- 1 
ELSE 
EXITLOOP; 


No dec pt. therefore 
all digits are left_dec 


OODODODOOOOOOOOO 
PIPPI et et et ot ot 


— — — — — — — — — — 


CONAOUESWN ⏑U — 
MEW =O ⏑ — ⏑ WN Oo 


DEST_LENGTH = .STRING_DEST COSC$W_LENGTH); 
sececiye -STRING_DEST COSCS$B_CLASS) OF 


OOOODOOOOOOOOOOOSO 


C DSC$K_CLASS_S ] : 
BEGIN 


'¢ 


Wn 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — —— 


FF oy ot ot at ot ot ot ot tot 2 at ot Mee me mek hk 


Swit 0 0 


FERRE 


** 
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(ogee EOBSSSIRIP_BLANKS SIGN = PaLt blanks and sign JaaSeb-1984 foitores 4 Pedant sneicosatcécw 2.1 
; f 


wn 


a decimal point was typed in, all the digits after it 
MUST be zeroes. 


f 
ae GTR 0 
ng FROM (PUTTER = ,RIGHT_DEC) TO .PUTTER DO 


' 
! to the left of the decimal point 

! in the typed in number and the dest 
! Difference between number of digits 
! to the right of the decimal point 
* ! in the typed in number and the dest 


i This is checking for the P Picture of 99PP. 
! If the scale is positive and the number of digits in the 


et 


POUAAAOOOUIUIUUINAEUMIUIUIUIUUE BEE EERE RARE REESE PUNE PEEP PEPPER S 


968 LENGTH_DIFF2; 


4 

¢ 36 

4 Bee 

OB 

44 9 

aig 9 : F .BUFC.i) NEQ %C°O 
ot? ? THEN RETURN FAILURE; 
445 955 IF_.LEFT DEC GTR .DEST_LENGTH 
rr > § THEN RETORN FAILURE; ! Data entered too big 
44 9 END ; 

8 35 

450 960 C DSCSK_CLASS_SD J : 

482 382 BEGIN 

45 96 

454 LOCAL 

8 LENGTH_DIFF, ! Difference between number of digits 
457 

458 

459 

4 

6 

4 

6 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — —— 
aD 
a 


Be Se Se Se Se Ge Se Ge Se Ge Se Se Ge Ge Ge Fe Se Se Ge Ge Se Ge Ge SF Se Ge Ge Ge Se SO Ge Se Se Se Se Ge Se Se Se Ge Ge Se Ge Se Ge Se Ge Sse Se Se Se Se Se Seteese 


& ! number equal the scale factor, then simply copy the digits 
465 975 ! in BUF to the destination descriptor. 
res | NOTE: Code for P Picture left in lowercase. 
468 78 if .string_destCdsc$b_scale] gtr 0 
469 979 then 
470 0 begin 
471 981 
AL local 
47 o7 tot_digits, 
aps 985 * 
476 3 tot_digits = cote ing destCdsc$b_digits] + .string_destCdsc$b_scale]); 
477 8 if T(.right_dec gtr OY or (.temp_num_digits gtr .tdt_digits)) 
ore 33 then T number too large 
8 9 return 0; ! re-prompt - error 
$3) 391 if .temp_num_digits leq .string_dest(dsc$b_scale] 
4 ¢ 99 then 
48 99 begin 
—* 994 
485 995 str$dupl_char (input string, temp_num_digits,zero); 
rey, * pdata_flag = 1; "answer is zero 
é 99 d 

en 
. 9 399 i ' 

egin 
rt 01 39 
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1 COBSSSTRIP_BLANKS_SIGN = Pull blanks and sign 4-Sep-1 210: COBRTL.SRCJCOBACCECV.852;1 (7) 

H 1438 ! Zero out the deat inet ion field using the digits as 

; 14 ! proper number of zero fill characters, rather than 

3; 1496 ! using the length as found in the descriptor, since 

: 38 5 } class SO is a special case. 

: 1299 6 str$dupl_char (.input_string, tot_digits,zero); 

: 38 f - Leading zeroes neq 0 

31 1 begin 

; 1301 9 7 . 

3 1 8 3 7 diff = (.string_dest(dsc$b_ digits] + ssering.dest(decSp scale]) = .temp_num_digi 

3 } 1? 4 chSnove (.string_destCdsc$B_digits],.buf,.input_stringldsc$a_pointerJ+.diff); 

3 en 

3; 1505 015 else 

i 13 ae beni 

3 1508 84 7 diff = .temp_num_digits - string dost tdecSe_scaled: 

3 1310 38 hi diff eql”.string_destldsc$b_digits 

3 en 

3; 1511 021 7 ch$move (.diff,.buf,.input_stringldsc$a_pointer)) 

; 1216 0 § 7 lse 

1814 O54 8 * 

: 1515 5 tot_digits = .tot_digits - .temp_num digits; : 

: 1aig Is — ch$move (.diff,.buf,.input_stringl(dsc$a_pointer]+.tot_digits); 

J BY * 

13 : 5 : z tthe & 1 

4 = 1; 

: 1 g 038 é vm digits = .string_dest(dsc$b_digits] + .string_dest[dsc$b_scale); 

3 1524 034 end; 

3 1525 035 5 

1 BE * 

333 begin 

3 15 040 : if .string_destCdsc$b_scale] gtr 0 

3 138) 041 2 then 

3 i § ek ‘ ok_left = .string_dest(dsc$b_digits] 

3 se 

3 15 044 OK_LEFT = .STRING_DEST CDSCSB_DIGITS] + .STRING_DEST CDSCS$B_SCALE] ; 

3 13 5 Be? -ok_left lss 0 | 

; en 

; 1338 a4? 6 begin | 

; 13 9 069 6 i Here we have a P Picture field of type PP99. 

3 1ee9 50 6 ! We know this when OK Lert is less than zero. 

3 1541 051 6 ! It requires some special casing. 

; 1366 26 6 te 

31 535 6 local 

3 1544 28 6 ff 

3 15465 5 6 ok right, 

 18¢9 3 8 — 

1348 088 6 if .left_dec gtr 0 ! error no *.* entered 
| 
| 


— — — — — 


15 
onversion routines 18-5 1984 23:49: AX-11 Bliss-32 V4.0-74 
N- Pull blanks and sign 12-808=1 38 $3:43:98 COBRTL.SRC cOgatCéCy B92: ( 


! ring bell and reprompt 


a gen 


“ao 
zm 
——- 
v= 


n 
return 0; 


ok_left = 0; 
ok aright = abs(.string.destldscSb_scaled); 
if .right.dec gtr .ok_right 
then 

return 0; 


+ 


This handles case where the number of digits entered 
is less than the absolute value of the scale factor, 
meaning that the number returned would have to be 0. 


Iss 


PNA A AMMA A OA NINN NIIP NANA AAAAAAAAPAOAAAAOOAAAAS 


buf ptr = .buf_desc(dsc$a_pointer] + .diff; 


diff = .right_dec - .diff ! move only necessary digits 


4 
é 
: ' 
! 
60 ‘ 
61 ! 
$6 07 ! The first part of the if statement takes care of the 
6 07 ' case where fhe number of digits entered equals the 
64 074 ! number of digits eupected taking into account if the 
65 8 absolute value of the scale factor is equal to the 
$8 78 ! number of digits entered to the — of the decimal 
a4 8 ; point thereby giving us a result of zero again. 
69 $79 diff = (abs(.strin -dest(dsc$b_scale]) - .string_destlCdsc$b_digits]); 
70 080 if ((.right_dec eq “She ing_dest dsc$b_digits]) and 
71 081 (.right_dec eql .diff)) OR 
3 bas 
7 08 en 
74 084 begin 
8 Ob tr$dupl_char (.input_string,t digit ) 
str$dupl_char (.input_string, temp_num_ s,zero); 
7 pdata flag = 1; _— ’ “ ! done - result is zero 
78 end 
80 else 
8: begin 
84 
85 


wee al eal al eal al al al ab sb sb Ab ab dl al ab ales) al eal eal al eal eal eal eal ea! 
oO 3383888 
3333333828888 
2—8323838 


| 
| 
| 
| 
| 
| 
(.right_dec leq .diff) | 
| 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


86 ! Zero out the destination field using the digits 

87 ! as the proper number of zero fill characters, 

88 098 ! rather than using the length as found in the 

8 8 descriptor, since class SD is a special case. 

91 101 str$dupl_char (.input_string, temp num_digits.zero): : | 
36 198 ch$move T.diff,.buf_ptr,(.input_stringldsc$a_pointer]+(.temp_num_digits-.diff))) | 
9 1 pdata_flag = 1; 

594 8 

595 105 end; 

238 1 

39 wen 

else 

395 
600 110 begin ! ok_left is not < zero 

601 111 OK LEFT = .STRING_DEST COSCSB_DIGITS) + .STRING_DEST CDSCS$B_SCALE) ; | 
3 "3 LENGTH_DIFF = .OK-LEFT = .LEFT DEC; 
60 11 LENGTH-DIFF2 = (.STRING DEST COSC$6_DIGITS) - .OK_LEFT) = .RIGHT_DEC; | 
ons 1% F ¢ -CENGTH_OIFF LSS OF | 
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SACCECV COBSACCECV = ACCEPT Conversion routines 18-36 -1984 23:49: AX-11 Bliss-32 V4.0-74 Pa 42 
12801 COBSSSTRIP_BLANKS_SIGN = Pull blanks and sign 12-8 08-1 3c ( 48:98 EMBRTL SREICOSALCE CV B82: 1 - (7) 
3 1606 116 7 ( ,LENGTH_DIFF2 LSS 0) 
; 160 11 8 THEN RETURN FAILURE ; ! Data entered too big 
: 1908 18 end; 
3 3 119 & end; 
ier 153 = 
; 99 1¢¢ C OTHERWISE J : 
> 1614 124 LIBSSTOP ( COBS_INVARG ) ; 
3; 1615 125 
3 19i8 1 — TES ; 
ee i 00 
PRG Se Pee oe 
; 16 1 1 Figure out the exponent. 
: 16 g 1 5 "JF _NOT (.DOT_SEEN) '! No decimal pt, therefore 
: 1624 134 HEN ! all digits are left_dec 
; i. ? 133 LEFT_DEC = .TEMP_NUM_DIGITS; 
> 1627 139 IF .LEFT_DEC EQL 0 
eo 83h. 
; is ys ; Figure out exponent if all digits are to right of decimal point. 
: 16 14 if .pdata_fla 
Ree fa tS See 
3 egin ; 
3 Ht +4 14k ing = zinput string Cdsc$a_pointer); ! point to re-written data 
~ . = 3 
: 383 38 INCR GETTER FROM 0 TO (.TEMP_NUM_DIGITS - 1) DO 
; 1o7 3 Exponent decreases for every leading zero. 
: 1641 131 if .inp C.GETTER] EQL %C'0" 
; 1848 HH ELS EXPONENT = .. EXPONENT - 1 r 
> 1645 155 EXITLOOP; 
3 1646 $128 
3 1647 15 END 
‘we FRE 
3 1650 160 -EXPONENT = 0; 
: 1651 161 INCR GETTER FROM 0 TO (.TEMP_NUM_DIGITS - 1) DO 
; 1688 188 Exponent decreases for every leading zero. 
; 1655 165 if ;BUF C.GETTER] EL X¢*0° 
: 1889 139 .EXPONENT = ..EXPONENT - 1 
3; 1658 168 
3; 1659 1g EXITLOOP; 
3: 1660 170 
3; 1661 171 END 
: 1662 172 ELSE 


COBSACCECV 
1-001 


ẽ 


220— ⏑ ⏑⏑⏑ —0—⏑ 
se ee peat ta aS 


SERREEEE 


bd es — — — — — — — — — — — — — — — — — — — — — 
o 


oa 
oO 
— 


on 


WAIN 


4 hat ty te cere PD 
DONAYVLEWN—OVOODANOUSW Me 


ca 


SeeeSPEee3 


20 


Pry 


onversion routines 


; to left_dec. 
.EXPONENT = .LEFT_DEC; 


14 


TC 
SIGN = Pull blanks and sign 


1§-$85-1984 23:49: 
ange} 882 43540; 


2 


AX-11 Oi fege 8 Ph aes 
COBRTL.SRCJCOBACCECV.B52;1 


; If all digits are to left of decimal point, exponent is equal 


Move the stripped string into the buffer and adjust the number-of-digits 


if .pdata_flag eql 0 
then 


X 
CHSMOVE (.TEMP_NUM_DIGI 
INPUT_STRING 


.NUM_DIGITS = .TEMP_NUM 
end 


el 


1S, .B 
COSc$A 
DIGIT 


UF _DES 
POINT 


RESCSA_POIMTE 
: RJ); 


C 
E 


se 
3 -string_destCdsc$b_scale] Iss 0 
n 


enum_digits = .temp_num_digits ; 


'¢ 
Free our local string 


STRSFREE1_DX (BUF_DESC); 
RETURN SUCCESS ; 


! end of C 


ZERO= 
OFFC 00000 — 5* 

5E 1¢ C2 0000. SUBL2 

10 «AE be 000 CLRL 

ee ae 

Age ie 

18 AE 7C QO000E CLRQ 

7E D4 00011 CLRL 

18 AE 04 00013 CLRL 

3 AE 7C B18 LRQ 
6D O27F CF OD 1 MOVAL 

oc Bt D i TSTL 

1 BNEQ 

O26F 31 3 BRW 

2c AE 8 6 1%: CLRW 

sf AE F , 9 MOVB 
F OAE 29 D MOVB 
30 AE 04 000351 CLRL 


Rj, 


OBS$STRIP_BLANKS_SIGN 


OO6AF -BLKB 1 
00 00 00 30 00680 P.AAD: .ASCII \0\<0><0><0> 


P.AAD 


S_SIGN: 
Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


DESC 

7 BUF_DESC+2 
UF _BESC+3 
EST+4 


Pa 43 
* (7) 


2858 
3868 


868 
869 
2870 


16 
SACCECV - ACCEPT Conversion routines 18.28 =1984 23:49: AX-11 Bliss-32 v4.0-74 Pa 44 
83 BLANKS _SIGN = Pull blanks and sign 12-8 08-1 3b 93:49:99 YOBRTL  SREICOBALCE CY 682: 1 9 0) 
ge OME Be i PUSH. MINTDIITS Regt: 
000000006 02 F A CALLS he “31RsceT1 Dx : 
0 AE D 7 MOVL “if _DESC+4, BUF : 3876 
4 aC p 4 MOVL 1 POT STRING, RO + 287 
A we 49 VAB  4(R9)7 RI : 
0 AD 4D MOVL (R10). ARG : 
14 «BC B p 50 VL #43, @SIGN_VAL : 3878 
04 AE 9F 00054 PUSHAB BLANKS $ + 2884 
OC AcE OF 00 7 PUSHAB ZERO SEEN ; 
146 AE OF A PusHaS DOT SEEN F 
10 AE OOF 00 SHAB DIGIT SEEN : 
4 AE OF PUSHAB SIGN_SEEN ; 
C AE 9F 0006 PUSHAB LEADING_ZEROES ; 
4 AE OF 0066 PUSHAB PUTTER ; 
14 AC OD 0006 SHL  SIGN_VAL + 2885 
48 AE 9F 0006C PUSHAB + TEMP~NUM_DIGITS + 2884 
44 AE OF O06F PUSHAB LEFT~DEC ; 
54 AE 9F 000 2 PUSHAB BUF_BESC : 
18 AC OD 0007 PUSHL FLAGS 3 
0C BC DD 00078 PUSHL  @NUM_DIGITS : 
59 DD 90078 PUSHL R9 : 
0000v CF 0€ FB 0007D CALLS #14, COBSSSCAN_ INPUT ; 
7¢ 50 £9 00082 BLBC =._«aRO,' 1 : 
1F 10 AE €8 0008 BLBS  DIGIT_SEEN, 5$ + 2895 
08 16 AE Es 00089 BLBS SIGN _SEEN, 2$ + 2899 
04 OC AE €E8 00080 BLBS © DOT_SEEN : 
05 04 AE €9 00091 BLBC BLANKS SEEN, 3$ : 
08 A D3 00095 2% TSTL 0_SEEN ; 
& 00098 BEQL $ F 
1C BE48 36 90 O009A 3$ MOVE #48, a@PUTTERCBUFI : 2902 
1¢ AE D6 0009F INCL : 290 
28 AE 06 OOA2 INCL  TEMP_NUM_DIGITS + 2904 
0170 31 0A 4$: BRW 31$ + 2895 
56 D4 O00AB 5S: CLRL § RIGHT_DEC : 2912 
05 Oc AE £8 OOOAA BLBS DOT SEEN, 6$ : 2921 
20 AE 38 AE DO OOOA MOVL §_TEMP_NUM:DIGITS, LEFT_DEC : 29 g 
54 8 AE 00 OB3 6$ MOVL_ TEMPTNUM“DIGITS, R4 : 29 
54 20 AE C3 0008 SUBL3 LEFT“DEC> R4, RIGHT_DEC F 
52 56 DO 000BC MOVL RIGHT DEC, R2 : 2927 
50 D4 000BF CLRL GETTER : 
O¢ i 0C1 BRB 3 
54 ; § OC3 7$: SUBL3 GETTER, R4, R1 : 2928 
0 614 t CMPB) Gtböoe j. #48 
6 1 CB BNEQ 9S : 
$ pd? 000C¢ DECL RIGHT DEC > 2930 
50 F3 ðelt gs: AOBLEQ R2, GETTER, 7$ : 308 
08 AC 003 9$: MOVL STRING DEST, RO : 29 
3¢ 60 3¢ 0000 MOVZWL (RO), DEST_LENGTH : 
1 03 AO 9A OOODA MOVZBL 3(ROS, RI ; 2937 
01 1 91 : cMPB.C«éRkT. wf : 2940 
11 E BNEQ 14§ ; 
4 : £ TSTL RIGHT _DEC > 2949 
14 E BLEQ Ss : 
1 AE 36 C3 O00E SUBL3 RIGHT_DEC, PUTTER, R1 : 2951 
1 D7 O00EC DECL ; 
06 11 OOOEE BRB 1$ : 


16 
COBSACCECV COBSACCECV = ACCEPT Conversion routines 18-06 -1984 23:49: AX-11 Bliss-32 V4.0-74 
ety COBSSSTRIP_BLANKS SIGN = Pull blanks and sign 12-8 08-1 98 43:79:95 COBRTL.SRC cosa Cécy 68231 
30 6148 91 000FO 10S: cues (1) (BUF, #48 
0B 1 F4 BNEQ 13$ 
FS 5] 10 «OAE OF F6.11$: AOBLEQ PUTTER, I, 108 
2 20 AE OD FB 12$:  CMPL LEFT DEC, DEST_LENGTH 
AG FF BLEG = G 
0195 31 00101 13$: ®BRW 44$ 
09 1 | 1046 148:  CMPB Ri. #9 
3 107 BEQL 5§ 
5 go RE TEE ass, Bila thon, 
33 83 A 5 1 § CVTBL 343— R2 
3 D4 00114 CLRL. oR 
D3 116 TSTL 6 
6A 15 0011 BLEG 208 
9 D6 OOTIA INCL RO 
58 9A 0011C MOVZBL (R3), R11 
5B 2 CO OO11F ADDL2 R2, R11 
24 «AE B 00 0122 MOVL R11, TOT_DIGITS 
56 D 43 8 TSTL RIGHT_DEC 
07 14 001 BGTR 138 
24 «AE 54 01 6612 CMPL 4, TOT_DIGITS 
D1 14 001 BGTR 1 
66 1 00 001 MOVL #1, PDATA_FLAG 
4 D1 001 CMPL 
3 14 001 BGTR 16$ 
008A 31 001 BRW 25$ 
FEBD CF 0138 16$:  PUSHAB ZERO 
28 AE OF 0013F PUSHAB TOT_DIGITS 
59 oD 00142 PUSHL R9 
000000006 00 03 FB 00144 CALLS #3, STRSDUPL_CHAR 
18 AE D5 00148 TSTL  LEADING_ZEROES 
OF 1 93 BEQL 
57 5B 4 { 15 SUBL3 R4, R11, DIFF 
50 63 9A 00154 MOVZBL (RS) 
00 BA47 68 50 28 00157 MOVC RO (BUF), @0(R10)CDIFFI 
iF 11 0015p BRB 19$ 
57 54 38 C3 0015F 17$:  SUBL3 2, R4, DIFF 
57 63 08 0 F 0163 CMPZV #0, #8. (R3), DIFF 
07 1 BNEQ 1 
00 BA 68 7 ; 016A MOVC3 DIFF. (BUF), @0(R10) 
gp 1 O16f BRB 19$ 
24 «AE 4 J 171 1833.  SUBL2 46 TOT_DIGITS 
50 6A 24 Ag g 175 ADDL3 TOf_DIGITS, (R10), RO 
60 68 8 17A mOvC DIFF. (BUFS, (RO) 
oc Bc 8 og v7 19$: ROVL R11, @NUM_DIGITS 
8 39 9 184 20$: BLBC RO, 218 
1 A 00187 MOVZBL «(R3), R1 
0 1 00 001 MOVL  R1, OK_LEFT 
7 11 001 BRB f 
1 é 9A OO18F 21$:  MOVZBL (R3), R1 
50 1 1 1 ADDL3 R2, R1, OK_LEFT 
20 Re pei Oe FT_DEC 
tse 
50 : DO 0019F MOVL R27 RO 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Ge Ge Ge Se Ge Ge Se Se Se Se Se Se Se Se Se Se Be Se Se Se Sa Fe Se Fe Se Se Ge Se Se Ge Se Se Se Se Be Se Se 


16 
CCcECV COBSACCECV = ACCEPT Conversion routines 15-98 -1 249: Ax-11 Bliss-32 v4.0-74 
4 « - anks and sign -Sep- 210: L. V.B52; 
sonst EOBSSSTaiP BLANKS_SIGN = Pull blanks and si 1a-8ep 1382 3 8 98 COBRTL. SRCICOBACCEC 882 1 
18 001 BGEQ 238 
CE 001 MNEGL RO, 
DO OO1A7 238:  MOVL RO. OK_RIGHT 
D1 OO1AA CMPL RIGHT DEC. OK RIGHT 
1AD BGTR 2 
52 50 C3 OO1AF SUBL3 RI, RO, DIFF 
gf 1 00 00183 MOVL #1, PDATA_FLAG 
— 4 186 CMPL §RIGHT_DEC> R1 
1B BNEG 24$ 
52 § D1 00188 CMPL RIGHT DEC. DIFF 
13 0018 BEQL 333 
52 $ p} 1C0 24$: CMPL RI GHT_DEC, DIFF 
4 O01C BGTR ¢6 
FESS CF of 1€5 255. PUSHAB ZERO 
t Ag F 0019 PUSHAB TEMP_NUM_DIGITS 
59 DD O01CC PUSHL R 
000000006 00 03 re 15 CALLS a, STRSDUPL_CHAR 
53 52 30 AE C1 Hh 26$ ADDL3 BUF_DESC+4, DIFF, BUF_PTR 
2 56 5 3 O16 UBL3 DIFF, RIGHT_DEC, DIFF 
FEI8 CF SF OOTE PUSHAB ZERO 
2c Ar 9F OO1E4 PUSHAB TEMP_NUM_DIGITS 
59 OD OO1E7 PUSHL R 
000000006 00 03 Fe * CALLS #3, STRSDUPL_CHAR 
50 28 1F9 SUBL3 DIFF, TEMP_NOM DIGITS, RO 
00 BA4O 52 28 OIF move DIFF. (BUFPTRI, a0(R10)CROJ 
: 1 001FB 37 BRB 1$ 
50 51 C1 OO1FD 288 ADDL3 2, R1, OK_LEFT 
52 50 20 Ar C3 00201 SUBL3 LEFT DEC, OK_LEFT, LENGTH_DIFF 
51 C2 00 06 SUBL2 OK_L 
50 51 $ C3 00 SUBLS RIGHT DEC, R1, LENGTH_DIFF2 
D5 00200 TSTL LENGTA_DIFF 
04 19 0020F BLSS 
50 3 0211 TSTL LENGTH_DIFF2 
10 18 00 13 BGEG 1$ 
0081 31 9 15 298: BRW 44$ 
000000006 8F DD 00218 30$: PUSHL #COBS$_INVARG 
000000006 0 1 FB 0 § CALLS #1 LIBSSTOP 
0 OC AE €E8 00225 318 BLBS  DOT_SEEN, 32$ 
20 Ar 28 «AE OCOD 6 MOVL § TEMP_NUM-DIGITS, LEFT_DEC 
5 10 ac D 328 MOVL EXPONENT; RO 
20 AE : TSTL FT_DEC 
; BNEG 
53 28 4 i ¢ SUBL3. #1, TEMP_NUM pisiTs. R3 
1 6— €E t BLBC = PDATA_FLAG, 3 
51 6A DO 0023F MOVL (R10)7 INP 
0 04 00 de CLRL 
52 1 CF 4 MNEGL #1, GETTER 
3 47 BRB 
30 6241 91 00249 338 ra.) (GETTER)CINP, #48 
11 4D BNEQ 3 
9 D 4F DECL (RO) 
FG 52 f 1 34$: AOBLEQ R3 GETTER, 33% 
19 1 3 BRB 39§ 
51 0} Be 80585 > AUEEL ost GETTER 
8 ‘f t BRB 37$ 


-_ 
Wrww 
0 


— —2— —8— — — — 


AES 
—Ovnron 


— — — — — 


— 


T9001’ —EDBSSSTRIP_BLANKS.SIEN'= PULL blanks and sign ht 19be 13:10:98 — Etdante $neScosatcéev.882:1 all 


30 6148 9 SE 36$: CMPB 6 TTER) CBUFI, #48 : 3165 
1 BNEQ : 
D DECL = ¢ : 3167 
FG 51 : f ; 37$: AOBLEG GETTER, 36$ : 183 
60 20 AE OD : MOVL EFT DEC. ao⸗ : 317 
cf i $8: iste PDATA.F LAG : 3183 
00 BA 30 BE 28 A 3 mOvC3 TEMP_NUM_DIGITS, @BUF_DESC+4, @0(R10) : $185 
50 08 A p 7D 40$:  MOVL TRING DEST, RO : 158 
OS 78 00584 peee ok 
oc BC 8 AE z i$: MOVL __—- TEMP_NUM_DIGITS, @NUM_DIGITS : 3193 
C AE OOF 42$:  PUSHAB BUF _BESC : 3198 
000000006 99 0 FB 6 CALLS #1, STRSFREE1_Dx : 
1 0D 43$: MOVL #1, RO : 3199 
04 %8 RET : 
50 D4 0299 44$:  CLRL RO 3 3201 
4 00298 RET : 
0000 0029C 45$: - WORD 36 nothing 3; 2824 
50 08 ac 09 99 H MOVL RO : 
50 AO p O2A MOVL  4(RO), RO : 
F8 AO 9F 00 Ag PUSHAB BUF DESC ; 
1 DD 002A PUSHL : 
E DD 002AB PUSHL Sp ; 
7E 04 AC 7D 002AD MOVQ 4 (AP), =(SP) : 
000000006 00 03 FB 00281 CALLS #3, COBSSFREE _STRINGS : 
04 00288 RET : 


; Routine Size: 697 bytes, Routine Base: _COBSCODE + 0684 


ACCECV COBSACCECV = ACCEPT C rsion routines —— 74 AX-11 Bliss-32 V4.0-7 P 8 

ops EOBSSTERO FILL = In itialize dest ination —— $3; 18; 98 COBRTL.SRCIC atcéev 6 2:1 — (a 
1693 ¢ ZSBTTL ‘COBSSZERO_FILL = Initialize destination 

1694 ROUTINE COBSSZERO_FILL ( STRING_DEST : REF SS tRSDESCRIPTOR 

1695 ! Destination for input 

16 5 ) +: WNOVALUE = 

169 

1998 + 

; FUNCTIONAL DESCRIPTION: 

1309 This routine will initialize STRING_DEST to zeroes before the input 

V? ; data is copied to it. 

4 FORMAL PARAMETERS: 


STRING_DEST.mt.ds Address of descriptor to receive the read input. 
IMPLICIT INPUTS: 


— 
S30 
2858 
— — — — — — — — — — 


3 


3 1 

g 1 

3 

1 

1 

1 

1 

3 1 

$ 1 

; 11 

3 § 1 

$ 4 

3 4 1 

3 51 

3; 17 § 1 

3 17 1 

3; 17 8 1 

: 1710 1 NONE 

3 1711 0 1 

3 ie 7. 27 IMPLICIT OUTPUTS: 

; Wiz 4 i NONE 

3 1715 4 1 

3 78 51 ROUTINE VALUE: 

i ihe a NONE 

3; 1719 8 1 

; 1720 9 1 SIDE EFFECTS: 

: 1753 | 

3: 17 ¢ $ 1 

iy : ? BEGIN 

3 1726 335 LOCAL 

3: 1727 2 SIGN : BYTE, 

: 1728 3 ZERO : BYTE, 

3 1729 38 DEST_PTR ! Pointer where result will go in destination 
; 17 ¢ 3 DESTLENGTH ; i Destination Length 
3 17 § 41 LITERAL 

3 17 “5 ZERO.O0 = 48, ! Zero 

3 17 4 POS_SIGN = 43 ' Plus sign 
3 7 5 rf POSZEROP = 128 ; ! +0 overpunched 
: 17 4 

3 8 ZERO = ZERO_ 0 3 

3; 1739 48 TR = .ST mie DEST DSCSA_POINTER] ; 

3: 1740 49 DEST- LENGTH = .STRING_DEST DSCSW- LENGTH) ; 

¢ 1h) 39 ts 

3 1748 26 : Zero fill, then handle sign correctly. 

: 1745 54 

3 Ho 3 32 STRSDUPL_CHAR ( .STRING_DEST, DEST_LENGTH, ZERO ) ; 

3 Ho 4 33 CASE, STRING _SEST CDOSCS$B_DTYPE] FROM DSCSK_DTYPE_NU TO DSCSK_DTYPE_NRO 


ccecy COBSACCECV = ACCEPT C i i 
sone COBSSZERO Tollae auettnet ten 1b 


— 
> b> lite! 


3BB8SS.NBBSS 
—— 


43 
BBR 
6 7 
64 7 
J 
SB 
68 7 
9 7 


ANNO 
WN—o 
Go 09 0D 

_ 


Mm 


ee i 
ARWVLOGHS IRAE OOo 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — eee — 
DONG 2 o 


——e———— 
— Se 
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16 
-$ep-1984 23:49: AX-11 Bliss-32 V4.0-74 
FILL = Initialize destination 7300-1382 #3340399 Yebarte srescosaccécy.642:1 

SET 
COSC$K_DTYPE_NUJ: ! Numeric unsigned 

Move all zeroes to STRING_DEST 

0; ! No further action 
CDSC$K_DTYPE_NLJ: ! Numeric left separate 


! Move sign then all zeroes to STRING_DEST 


BEGIN 


SIGN = POS_SIGN ; 
CHSMOVE (17 SIGN, .STRING_DEST CDSCSA_POINTER]); 


END; 
CDSC$K_DTYPE_NRI: ! Numeric right separate 
Move all zeroes followed by sign to STRING_DEST 


BEGIN 


SIGN = POS_SIGN ; 
CHSMOVE ( T, SIGN, (.DEST_PTR + (.DEST_LENGTH - 1)) ) ; 


END; 
COSC$K_DTYPE_NLOJ: ! Numeric left overpunched 
i Move all zeroes to STRING_DEST 
: First digit has overpunch sign (positive) 
BEGIN 


SIGN = POSZEROP ; 
CHSMOVE (1, SIGN, .STRING_DESTCDSCSA_POINTER)); 


END; 
CDSC$K_DTYPE _NROJ: ! Numeric right overpunched 
i Move all zeroes to STRING_DEST 
: Last digit has overpunch sign (positive) 
BEGIN 


SIGN = POSZEROP ; 
CHSMOVE (1, SIGN, (.DEST_PTR + (.DEST_LENGTH = 1)) ); 


Page 


49 
(8) 


116 
utines -Sep-1 


; Routine Size: 83 bytes, Routine Base: _COBSCODE + 096D 


SACCECV COBSACCECV = ACCEPT Conversion r 4 AX-11 Bliss-32 V4.0-74 Pp 
19601 COBSSZERO_FILL = Initialize dest ination 13-Sep-1984 13:18 :98 Heber TL sR cds OBAC ttéey 64251 ** (BS 
: 1807 1 
; ; : TES; 
3; 181 i§ END ; ! End of COBSSZERO_FILL 
000¢ 00000 COBSSZERO FILL: es bad — 
Vv 3 
SE 98 £2 00002 SuBL2 a8 : 
MOVE #48, ZERO : ; 47 
04 AC 00 00008 MOVL STR {ne DEST, of? : 3248 
06 A p 990 MOVL 4(R2), DEST : 
06 AE $ t 1 MOV2WL (R2), DEST TTENGTH : ; 49 
E DD 00014 PUSHL S$? + 3255 
08 AE OF 0016 PUSHAB DEST_LENGTH : 
52 DD 0001 PUSHL R : 
000000006 00 03 FB 0001 CALLS @ STREDUPL CHAR : 
F 02  A2 8F 000 CASEB 2(R2), : 3257 
0010 0015 0008 0028 0027 1$ <WORD §8$-1$,- : 

OOTE 002F $-1$.- : 
4$-1$,- : 
3$-1$.- : 
6$-1$ : 

94 00031 RET : 
50 2B 90 000 : 2$ MOVB #43, SIGN : 3274 
09 11 000 BRB 5$ : 3275 
50 2B 90 990 7 3$ MOVB #43, SIGN : 86 
D 11 0003A BRB 7$ : 3287. 
50 78 «68F 90 0003C 4$: MOVB #123, SIGN : 3299 
04 862 0 90 00040 5$: MOVB SIGN, a4(R2) : | 
4 00044 RET : 3257) 
5 7B 8F 90 00045 $$ MOVE #123, SIGN : 3 1¢ 
51 5 04 AE C1 00049 7S: ADDL3 DEST_LENGTH, DEST_PTR, R1 : 3313) 
FF OA 50 90 0004 MOVE SIGN> -1(R15 ; 
04 00052 8$: RET : 3319 


16 
CCECV Cv = ACCEPT Conversion routines — * -1 249: AX-11 Bliss-32 V4.0-74 P 1 
830 IFVFLAMAAMAGE - verify Float Pt range a aet 1 $3:43:98 COBRTL.SRC cogatcécy B42:1 —* (3) 
1 ZSBITL " FOSSSVERIEY _ELRANG - Verify Float Pt range’ 
1 ROUTINE COB SVERIFYPL RAMS ( 


MP_PUT_HERE : REF BLOCK (8, BYTE], | # to scan 
CHARS _RERD, | # of chars in TEMP 


PUT_HERE 
— ! #@ of significant digits allowed 
= 


— —— tt 


Oo OOS 


1424 


FUNCTIONAL DESCRIPTION: 


Check range of Floating and Double Floating Point input data. 
Do nothing about errors in this routine, return to calling routine. 


FORMAL PARAMETERS: 
TEMP_PUT_HERE .rt.dx Input data to be verified. 


09. C0 0d Cd 00 09 OD Cd OP CD OD Gd GD OD CdD 0D C9. C9. C9 CD CD CD.CD CD 


4 

3 1 

3 1 

3 3 

3 1 

3 1 

31 

31 

3 1 : 

= 3 4 

3 1 : 

3 3 ! 

3 1 : 

3 : : 

; ' CHARS_READ.rlu.v Number of input characters. 
: 1831 i MAX. rlu.v Number of iy ghttesy > digits allowed in 
3 1 ¢ ! mantissa of E notation representation. 
3 3 : for Floating Point 

3; 1 : 16 for Double Floating Point 
§ eee } IMPLICIT INPUTS: 

3 1837 NONE 

; 1839 i IMPLICIT OUTPUTS: 

; 1841 NONE 

; 1848 { ROUTINE VALUE: 

> 1845 i 1 = SUCCESS 

2 136 : 0 = FAILURE 

> 1848 i SIDE EFFECTS: 

88 

3; 1850 ! NONE 

1 * 

J ein 

3 1855 i This routine counts the significant digits (1-9) and significant zeroes 
3 3 2$ ! of data that is input to either a floating point or a double floating 
3 132 : point data item. Some zeroes can be ignored. 

: 1839 i 0000000000012. 3400000000000000000 

; 1860 ! \ / \ / 

: 1 3 i — ——⸗722 7 ——— 

3 ignore ignore 

: 1864 i 000 .0000000000000000000000000001 2345 

: 1865 eS — —— 

ignore do not ignore 


— 


16 
LCRANGE © Verity Float Pt range ——— 3:10:98 EeGanteosne Scosatcecv-682; 1 onl 


9 12340000000000000000000000000000. 7 
7 Se ———— — 
do not ignore — 
7 
75 
8* LOCAL 
7 PUT_BUF REF VECTOR (1100, BYTE] 
78 COUNT INITIAL (0), ' €ount for TEMP_PUT HERE 
79 DOT_SEEN INITIAL (0), i £1 Decimal point $ 
DIGIT_SEEN INITIAL (0), ' 1 At least 1 digit. seen 
SIGN_SEEN INITIAL (0), ! s1 Sign seen 
E_SEEN INITIAL (0), ! s1 E/e of exponent seen 
R_SIGNIF INITIAL (0), : Sionigicant digits t 
! right q decimal point 
L_SIGNIF INITIAL (0), ! Significant digits to 
' Left of decimal point 
R_ZERO INITIAL (0), ! Significant geroes to 
! right of decimal point 
' Calculated after incr loop .00...0012 
L_ZERO : INITIAL (0) ; } 8 nificant zeroes to 
t of decimal pg point 
! Calculated in hens loan 1200...0.0 


PUT_BUF = .TEMP_PUT_HERE CDSCSA_POINTER] ; 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


—— 
ù NHN BB BEE BF AM.AWNWIA MAAN AIP PINIPIPOPINIPUPIPIPIPIPIPIPUNIPUNINUNIPINININININY 


Be Se Se Se Se Se Se Ge Ge Se Ge Ge Ge Sse Se Fe Ge Ge Ge Se Ge Fe Ge Ge Ge Ge Se Ge Ge SF Se SH Se Se Se Se Se Ge Ge Ss Gs Se Se Se Se Se Se Ge Fe Se Se Ge Se Ge Se Sees 


4 INCR X FROM 0 TO .CHARS_READ - 1 DO 
108 BEGIN ! Begin INCR Loop 
8 Count significant digits and significant zeroes. 
409 SELECTONE .PUT_BUF [.X) OF 
rh SET 
1 cL ot" Fe ae" 2 — 
41 1+ 
414 ! Count significant digits to the left 
415 ! or right of the decimal point. 
419 4 
910 18 BEGIN 
911 419 DIGIT_SEEN = 1 ; 
a 4 9 IF .DOT_SEEN 
91 4 THEN 
914 ; R_SIGNIF = .R_SIGNIF + 1 
915 ELSE 
pay | 4 L_SIGNIF = .L_SIGNIF + 1 ; 
91 5 COUNT™= .COUNT + T ; 
ay § END ; 
? ) 3 C zC'0" ]: 
9 g 0 i Count zeroes after DIGIT_SEEN 
9 1 ! and/or after DOT_SEEN. 
924 ; te 
925 


re 


zm 
—— 


- ACCEPT Conversion routines 
Y_FLLRANGE = Verify Float Pt range 


<o 
ma 
n= 


i ao 
AYP 


88 


V— — 


rs 
SPREE 


Wit 


MMA 


2238288 


0 OoOoo WOO 
Ooo 


23322—————————— 


—2————— 
S 
28 


ce⸗ 


wn 


ee — — — — — — — — — — — — — — — — — — — — ee — — ec ce — — — ec ae ae — — — ed ce ee ee ed ee 
Mwy 


ADR BF WAIANAE & BWANA & BB AWA WANWINNAI BBR LLL LLLP LLL LES 


Be Se Se Se Se Se Ge Ge Be Se Ge Se Ge Se Se Se Se Ge Ge Ge Ge Se Ge Se Se Se Se Se Ss Ge Se Se Fs Ss Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sse Se Se Se Se Sse see 


XXXXCXCXCXRXEECCCCOu 
⸗28388332228888888 


16 
18-Sep-1 249: AX=-11 Bliss-32 V4.0-74 
12-308-1984 13:10:95 Eebante see coBaCcécy B82; 1 
BEGIN 
IF .DIGIT_SEEN 
THEN 
IF .D0OT_SEEN 
THEN 
R_SIGNIF = .R_SIGNIF + 1 
L_SIGNIF = .L_SIGNIF + 1 
ELSE, 


i Count zeroes after decimal point, 
but before significant digits 


if .DOT_SEEN 
THE 
R_ZERO = .R_ZERO + 1 ; 
COUNT = .COUNT + 1 ; 
END ; 
C ere aC'+" J): 
Only one sign is valid 


IF .SIGN_SEEN EQL 0 
THEN 
BEGIN 
SIGN_SEEN = 1 ; 
COUNT = .COUNT + 1 ; 
SE 
RETURN O ; 
. .". "28 


BEGIN 

DOT SEEN = 1; 

COURT = .COUNT + 1 ; 

END ; 
. oe “3s 

14 

Spaces are aliowed 

COUNT = .COUNT +1; 

C 2C°E*, £C'e*' J: 


'¢ 

' Don't check range of exponent, leave 
that for OTSSCVT_T_F/D 

BEGIN 

—E SEEN = 1; 

EXITLOOP ; 

END ; 


— 


Oe Ge Oe Oe Oe Oe Ge Oe Se Ge He He Se Oe Gs Se Se Se Ge Oe Ge ws Se Se Se Se Se Ge Se Ge Se Ge Se Se Ge Gi Se Ge Se Ga Se Se Se Ge Se Ge Be Ge Ga Ge Ge Ge Ge Ge Be Ge we 


— — — — — — — — ——— — — — — — — — — — — — — —— 


——— eect, = ACEEBT Conversion, rout elect Pr renge 18-sep-1904 43:73:98) FeSante SARS cosal tet ete: Por 5 


1985 { OtweewISE) : 
: 5 RETURN O ; 
q . 
: TES ; 
H ° If i ignifi igi 
Marinus —34 cant digits allowed has already 
1 : been reached 5 ee at all ‘s igte is the exponent 
; i. = pull out o 
1 
1 If (.L SIGNIF ¢ .R_SIGNIF E ~~ oR 
133 Pleat 
1998 THEN EXITLOOP ; 
1 END ! End INCR Loop 


— 


Make be all remaining digits (if any) 


ere ze 
Count oer after significant digits, but 
before eroes point ete ° 


a LSS .CHARS_READ 


— 2 ew 


Wr OOnwouver 


* ALL input characters have not yet been processed. 
BEGIN 
INCR Y FROM .COUNT TO .CHARS READ - 1 DO 
BEGIN 
SELECTONE .PUT_BuUF C.¥] OF 
SET 


{C Sc°e€*, BCte* J: 
te 
! Don't check r f ex t. 
: leave that for — * 
EXITLOOP ; 

C sc*o" J: 
8 


i Count zeroes to left 
: of decimal point. 


F zbet_sten EQ. 0 
L_ZERO = .L_ZERO + 1 ; 
. x. &,*. SS. Be", SF 2 
te 
! Of no consequence here 


wn-—o 


w 


POPPE BIRD III IFIIRIPIRIPIRIPI A FRAIL SO SOLO LO LOLOL 


rs 


Be Se Ge Se Se Se Se Se Se Oe Ge Se Se Se Ge Se Ge Se Se Ge Ge Ge Se Oe Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


— — — — — — — — — 


— 


Perr Pee 


FF 


i 


— Rance over © Convert on, rou f lost 77 range 


temo 


{ OTHERWISE J: 


RETURN O ; 
TES ; 


Yderte sacicosace ety ake; 1 


⸗ 


Check renege, At this point you are only concerned 
@ of zeroes beteen the decimal point 
Anything greater then 


or example the following are out 


about 
np. signi ficant digits. 
out of range. 


ofr 


WOTE : The pottouses error would have been caught 
1 ; 009000000000000000000036 


out of range 
If .R_SIGNIF + RZ ZERO GTR =x° re OR 
ue + .L_ZERO GTR 2x" 
RETURN O ; ! Out of range 


! End COBSSVERIFY_FL_RANGE 


‘ 


OFFC 00000 COBSSVERIFY_FL_RANGE: 
are TtoRD = "s ave R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11 


73 ie OC CLRL T 
cLRO $1N SEEN 
+44 LRL ~SEEN 
§ CLRO = ss RTS IGNIF 
006 CLRL = LS IGNIF 
A CLRO : ZERO 
A y MOVL EMP_PUT_HERE, RO 
MOVL 4 (ROT, POT_BuUF 
9 ce ) MNEGL #1, X 
é BiB 16$ 
341 9A 00 MOVZBL (x)CPUT_BUFI, RO 
0 91 CMPB ORO, #49 
A i BLSSU 2 
9 1 CMPB RO, #57 
1A BGTRU 


Powe 5) 


3402 


a — — — — ———— —— — — — — — — 


ae ; 
HACE SENET MRR STAHL ge HEESESEL GENGRE SGA SURSCRB Ute 


56 1 MOVL fl. DIGIT_SEEN 
30 ne , 08 
BC —dDIGIT_SEEN, 5S 
ge at bof SEEN, ds 
NCL  R_SIGNIF 
f *? NCL IGNIF 
23 8 BC  DOT_SEEN, 113 
0( ince fa ZERO 
I 17 
28 9 cmPB CRO, #43 
1 BEQ 
20 ? t RO, #45 
i STL _SEEN 
BNEG 
55 MOVL #1, SIGN_SEEN 
BEB 118 
2c CMPB ORO, #44 
BEQL 
2€ CAPR ORO, #46 
BNEQ 
59 MOVL #1, DOT_SEEN 
BRB 11 
20 CMPB Rg #32 
BNEQ = 12 
IN*: COUNT 
BRE 1 
45 85 c™PB 66 #69 
BEQL 


65 oF 


o 
=n3 


RO, #101 
i see 


@wovce«cm 
errr o 


50 57 3 R_SIGNIF, L_SIGNIF, RO 
R MAX 
E SEEN, 17$ 
85 8 08 AOBLSS ‘RARS_READ, xX, 1$ 
08 AC CMPL T> CHARS_READ 
BGEO 
CL 
RB 208 
0 62 mov7BL (Y)CPUT_BUFJ, RO 
45 —soBF CMPB ORO, #69 
BEQL 
65 «8 CMPBOCéRKO, #101 
Bear «sat 
30 CMPB OO séRO, #48 
BNE 1 


Bf OT _SEEN 


bgt RO 


2 
⸗ 
OWN NO VPUVPIU FR UMW UN BP MO" MOOOMUOM 
eRe ea FESS LSSSS=NRSSSSSSSFS 
+ 2¢ +: S 


—— — — —— —— — — — — — — —— —— — — ——— —— — 


— — — — ee — — — — — 


GORSACCECY — COBEACCECY = ACCEPT Conversion routines | n 25:48:06 ARH] BLing=BZ e⸗n⸗ (7 


20 2 198: CRB RO, * | : 3545 
28 0 HB #43 ; 
Bssu 
2E : —* #66 : 
ee et cee ralbalv. J 
50 $7 i RSDLS t Teno, L_SIGNIF, RO ; 3577 
Serk 238 ; 
50 1 nov. i, RO ; 3581 
50 $ 228: cLRL RO ; 3582 


|; Routine Size: 234 bytes, Routine Base: _COBSCODE 


— —— ee — — — ——— 


22 
Wo 
— 
S 
a 


peel) Oi tegen A 
COBRTL.SRCJCOBACCECV.852;1 


198e $2:10:98 


1 
ep-19 
ep- 


1-5 
14-$ 


EPT Conversion routines 


CCECV = ace 
OBSSSCAN_INPUT = Scan the input string 


C 
t 


—— 


2 
c 
- vw 
3 ww 
Ab 
— — wo Qa 
= = « — t 0 vo 
a ee ive a a 
— — te & a c c 
a a - c c 
— — cw v ea @ 
a a on. # @& .& Ovvd vw 
wv vw v® vo cu 2°32 w 
w“ a) nem we — 
iv) w v@eceuwn + cwcvow 
8 a oOo @e@—-- Ow 2 Seeaon 
a) ~~ a vBvcc 
a a es Ue “vn "ee 
— — Hoe - @e-w es. ¢ ow 
” w s°ss 25 > t= va 
--A A — ecCc—<a -+1o sw 
b -€@ +t ts os o 
- ow #¥3S3e@vOC von & OC 
uw a FAV Her — ere 
a a ° es Ue oon0oe#— 
~~ rr ur Ge C — — 
rv) z — £0¢'O0uN're Oe OA 
- . — co | peer S32 nr & 
2 — 0 am a- UY 
c rer O e 
S - a e. vee Nv eyee eo 
J * J a ©3s wn Oe is te ae eee 
om 2 w — —R ee ae ee ee 
— = ~wRu sew — —800 Orne — — 
evew Wve WwwFZwmM 3 £3v@ 
£VYa Mwy www 6 w —-ZwYoeer-vaunununu i 
ow two raeswy www we w" 
avVewvnsqo © &e om c w 
5 aw - -oa2z- O24 ti a 
WUdduu —-fO0ra io wv) 
ve | 254 -_ —Ow a v 
Mev @t17ZMA wMA0™~ & 3 
. 
~~ — - * — 
z oa > E — " 
| and — ⸗ . 
— 22 x ⸗ —A⏑— — 
* —752 2826 
a - = **@e Se — « a 
ry — WW & + Pes ot EE -~EZ oe - @& 
ae a a “9 *t EWE wi FE ow “” “” & 
zz ve w — i ee) ae 4— - w 3 
nw — VWeRYueR JE tuwezwn — z 3 — 
vu aw MS two *"OwMuww t 8 2 ee 
vn a Ww twoer>raZzswy www — ~ enw 
et - aveMM"a: Se &e 6 2 2 _— -— 
33 € ostuteSu25c-e< ~ z.% 
88 > 4 wdduu — Ora > o ww 
a S$ ~2Dw “i Lam ws — — — — 
vv ro Ve @O4Z244 s14200"0 - Cond - Oo & 
— — WwW wv 4 — 
Es SS Te a oe 
-_ vu _ hae 
a) z v a 
— — —2 — 
vv ve a me ~ (Va) 


: oC SSSSsSS SS Be ee ee ee RR NN taranen 
Dad ao aD of =§*MDDOCCOOCOCCOC OC — — — — — — — — — — 


— ⏑ ⏑ — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


Be Se Be Oe Se Se Se Se Se Se Be Oe Se Se Se Se Se Se Se Oe Se Se Be Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Be Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Oe 


—B——— 
133 


1 
CECV = ACCEPT Conversion routines 18-5 “19 2469: AX-11 Bliss-3 74 P 9 
CAN.INPUT = Scan the input string m 73:58:98 eta desc al te ey b80.1 ⸗e 43) 


w 
POC 
WwnN-Oo — 


TE}. ! Addresses result 
TE] ; ! Addresses source 


BUF = 
ARG = LARG- DES Sf 


PA AAG 


'¢ 


; Scan Input, put result in BUF. 


INCR GETTER FROM 0 TO (.CHARS_READ = 1) DO 
— -ARG C.GETTER] OF 


Czc"O* TO ZC°9") : 


“ah Ab dh bb 4h Ab db Ab he ah A 


OO NORE UN BOO NOUN 


PRC 


N : al di 
IF (¢ ARG p-Se tren? NEQ ZC°O* ) OR (..DOT SPN EQL 1) A 
((,.ARG C.GETTER] EQL ZC°O" ) A T SEEN EQL 


“Al 


J This is not a leading zero 


4 

3 

4 

4 

¢ 

4 IF ..BLANKS_SEEN ! Ensure no imbedded blanks 
? THEN RETURN’ 0; 
4 

4 

4 

4 

4 

4 

3 

4 

4 

4 

| 

| 


—34 TLSEEN 
BUF PUTTER) s Ty . GETTER); 
»PUTTER = ..PUTTER 


—— = —— 214 


BEGIN 
»LEADING ree = ..LEADING_ fences +1; 
-ZERO_SEEN = 1 ' 00. is valid - dot_seen and 
i zero_ A. 
END; 
END; 


(ZC°**, £C°=") : 
BEGIN ! Plus or minus sign 
F ¢ SEEN ) THEN RETURN O ; 
EQ .CHARS_READ - {| ! Ensure no imbedded signs 
DIGIT -SEEN ) AND ( .ARG C.GETTER + 1) NEQ 2C* * )) 
URN 0°; 
1 


SALES IST RRR 


232222288 


R 
EN = 1; 
L = .ARG C.GETTER); 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — ee 


SERS RAVES SSNS ARAN SSSSLS TIERS SSVSAFUNASSSELESESALE 


Se Se Se Se Se Se Be Se Ge Ge Se Be Fe Se Se Se Se Se Se Se Ge Se Se Se Se Fe Se Ge Se Ge Ge Se Ge Ge Ge Ge Se Se Ge Ge Ge Ge Se Ge Ge Se Se Ge 


—— tv 


138 
198 
1 
1 
1 
19 
1 
1 


3 
: 


— 2— — — — — — — — 


Ba25322323232388288 


wn 


w 


Mew 


— — — — — — — — — — 


— 


wn 


a i, i, Bi Pin in Mie iin in PnP i Ti i, i Ni Ni i Bi i i i S| 
“ 


1 
oScan the input string VEseoctggs GEsHB:98  HAMadh Och YtePs 74h. Poet 18) 


Czc’."] : 


COBRTL.SRC —X 


BEGIN ! Decimal point 
If ( ..DOT_SEEN ) THEN RETURN 0; 


Is decimal point a valid character - look at bit 6 of FLAGS 
iF ( .FLAGS AND V_DEC_PT ) NEQ 0 


HEN 
RETURN 0 ! Decimal point is illegal 
ELSE 
BEGIN 
-DOT_SEEN = 1; 
-LEFT_DEC = ..NUM_DIGITS ; : Count for validatin size of 
; ! entered data. NUM_DIGITS 
END; ! calculated below. 
Cac*’.°3 3 
BEGIN ! Decimal point is Comma 


IF ( ..DOT_SEEN ) THEN RETURN 0; 

; Is comma a valid character - look at bit 6 of FLAGS 
if ( .FLAGS AND V_DEC_PT ) NEQ 0 

THEN 


=O} SEEN vii ! Comma is an illegal character 
“LEFT spEC = . «NUM DIGITS ; ! Count for validatin size of 
! entered data. NUM_DIGITS 
CLE rune 0 ! calculated below. 
ND; : 
+ qa E 


eee ! Blank poster be leading or trailing. 
IF (..SIGN SEEN OR ..DIGIT_SEEN OR ..DOT_SEEN 
Me »-BLANRS SEEN = 1; 


COTHERWISE) : ! reprompt by passing back a routine value of 0 


RETURN 0 ; 


TES; 


! End COBS$SCAN_INPUT 


003C 00000 COBS$SCAN_ INPUT: 


GORD Save, R2,R3,R4,R5 584 
9 10 ac 06 90002 MOVL BUF _D ESC. RO” 645 
3 04 ad 00 00006 MOVL BURON 3 


f 


esos “Ea Sy aR set oR eR 


1 
= ACCEPT Conversion routines hese -1 249: AX-11 Bliss-32 V4.0-74 Pa 1 | 

INPUT = Scan the input string 12-808=138e $3:43:58 COBRTL.SRCJCOBACCECV.852;1 9 18) 
04 A 09 A MOVL  ARG_DESC, RO 3 3646 

AO D MOVL 4(RO), ARG : 
9} cE BNE GL He GETTER + 3654 

0 044 * 17 1$: MOVZBL (GETTER)CARGI, RO : 
0 50 91 18 CMPB RO, #48 + 3657 

41 1F 0001 BLSsSu) SS : 

39 0 91 CMPB ORO, #57 : 
1A 000 BGTRU 5 : 
30 91 000 CMPB R0. #48 + 3660 
11 12 00028 BNEQ 2 : | 

01 30 BC : 0 A CMPL s0T_SEEN, #1 : 

BEOQL $ : 
30 91 000 CMPB SséRO, «#48 + 3661 
1 99 BNEQ : | 
01 2c BC p 99 3 CMPL @DIGIT_SEEN, #1 : | 
03 38 BC 3 038 2$: BLBC QB, ANKS. SEEN, 3$ + 3667. 
009 1 0005F BRwW 1 : 
2c oat 01 DO 00042 38: MOVL #1, @DIGIT_SEEN : 3670. 
1 20 AC 00 00046 MOVL PUTTER, R1 ; 3671) 
3 6 004A MOVL (RI), R3 ; 

634 0 004D MOVE RO, (R3)CBUFJ : 
61 D6 00051 INCL 36 ; 3672 | 
18 BC D6 00053 INCL § @NUM_DIGITS + 3674) 
4 11 0005 BRB 14$ ; 3660) 
24 BC 06 0058 4$: INCL  @LEADING ZEROES ; 3678 
34 «BC 1 pO 00058 MOVL #1, aZERO_SEEN : 3679 
8 11 0005F BRB 4 : 3654, 
28 : 3 —*8 5$: — RO, #43 3; 3684. 
“ a oe ~ 
68 28 «BC e§ 00068 6$: BLBS a@SIGN_SEEN, 17$ + 3687) 
08 AC 01 C3 0006F SUBL3 #1, CRARS READ, R1 ; 3688 | 
* 3886 S. AT J 
7 zf BC £9 00079 BLBC @DIGIT_SEEN, 7$ ; 3690 
0 1 Aue 4 9070 CMs ICGETTER) ARG], #32 ; | 
28 «BC 1 6 0084 7$: MOVL #1, @SIGN_SEEN > 3693 | 
1c «BC 0 pO 00088 MOVL RO, @SIGN-VAL > 3694 | 
E 11 00 C 8$: BRB 14$ : 3654 | 
2€ 91 99 9$: cMPB RO, #46 : 3697. 
43 30 «BC rs 0095 BLBS § aDOT_SEEN, 17% : 3700. 
Oc AC 6 : 009 BBS #6, FLAGS. 17$ : 3704 | 
: 1 0009C BRB 11§ : 3709 | 
2c 91 Ov 10$:  CMPB Rg #44 : 3714) 
14 iF Al BNEQ 12§ ; 
33 30 Bc E 83 BLBS ädör, 5ktu. 173 : 3717. 
9c AC 6 €1 OOOA BBC #6, FLAGS. 17$ : 3721) 
0 BC 1 DO OOOAC 11$:  MOVL #1. a@DOT SEEN > 3724, 
14 BC 18 is p 08 ROVL @NUM_DIGITS, @LEFT_DEC : , > 
20 50 91 88 128: CMPB RO #32 : 3731. 

1— 12 OOOBA BNEQ = i7$ ; 


1 
cctctv COBSACCEC CEPT Conversion routines 14-5 Sep-19 AX-11 Bliss-32 V 
8 COBSSSCAN V iNPUT = Scan the input te 14-Sep- 198 13:45 :10: £98 COBRTL.SRC copate tty v 682: 31 
8 E Bs BLBS @SIGN_SEEN, "§ 
uf E ¢ BLBS @DIGIT_SEEN, 13$ 
é C4 BLBC anor sartN, {4$ 
Bf i) C8 13$: MOVL LANKS_SEEN 
02 4 J izi AOBLSS * READ.” GETTER, 15$ 
FF4 3 D3 15$: BRwW 
| 50 01 8? 3 16$: aeye 1, RO 
50 7 DA 17$: CLAL RO 
| 4 QOODC RET 
3 Routine Size: 221 bytes, Routine Base: _COBSCODE + OAAA 
3 4 745 #1 
; 9 ms 1 ND ! End of module COBSACCECV 
40 47 0 ELUDOM 
; PSECT SUMMARY 
J Name Bytes Attributes 
: _COBSCODE 2951 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
ee — Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28 ESYSLIBISTARLET.L 32:1 9776 27 0 581 00:00.8 
; _~$255$DUA28:(COBRTL .OBJJSMGLIB.L32;1 469 0 0 8 00:00.2 
3 COMMAND QUALIFIERS 


; Size: 2929 coge + 22 data bytes 
; me: 742.5 
:56.0 
2250 
21421 


Se Se Oe eee 
nm 
— 
8 
w 
e 
a 
~ 
— 
$s 


; Lexemes/CPU-Rin: 


—X8 


3734 


735 
54 


3763, 
3764 


PL ISS/CMECK OLE FELD. INITIAL OPTIMIZE) /MOTRACE/L ISL 158: COBACCECU/OR 908 IS : COBACCECY MSRC$: COBACCECV/UPDATE=(ENH$: COBACCECV 


—— — — — — — — — — — — — — 


1 
j oe Pp - - 2 = j - ~U- j 
FORRACCECY —X ta ware’ { Convers a yg 3 i$ $ep-1984 23:49:06 VAX-11 Bliss-32 V4.0-742 Page st 


; Memory Used: 364 pages 
3 Compilation — — 


SE | DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFID 


I 
FIDENTIAL AND PROPRIETARY 


WK) ae eT e 


‘AH-BT13A-SE NT CORPORATION 
VAX/VMS V4.0 | D_ PROPRIETARY 


0061 


